在R函数中实现True/False标志

Question

我有一个r函数：

subsequences <- function(data){
  sequences.sts <- seqdef(data, left = "DEL", gaps = "DEL", right = "DEL")
  sub.sequences <- seqsubsn(sequences.sts, DSS = FALSE)
  (sub.sequences)
}

现在，我想实现一个TRUE/FALSE标志来运行一些其他代码以进行标准化，类似的是：

subsequences <- function(data, normalization = TRUE/FALSE){
   sequences.sts <- seqdef(data, left = "DEL", gaps = "DEL", right = "DEL")
   sub.sequences <- seqsubsn(sequences.sts, DSS = FALSE)
   (sub.sequences)  
      IF normalization=TRUE, RUN CODE BELOW, IF FALSE -> END
         sequences.length <- seqlength(sequences.sts)
         order_normalized <- sub.sequences/(2^(max(sequences.length)))
   (order_normalized*1000000)
}

我该如何实现？

Answer 1

library(TraMineR)
subsequences <- function(data, normalization){
  sequences.sts <- seqdef(data, left = "DEL", gaps = "DEL", right = "DEL")
  sub.sequences <- seqsubsn(sequences.sts, DSS = FALSE) 
  if(normalization){
  sequences.length <- seqlength(sequences.sts)
  order_normalized <- sub.sequences/(2^(max(sequences.length)))
  (order_normalized*1000000)}
  else {return(sub.sequences)}
}