set.seed (12345)
data <- paste(sample(c("A","C","G","T"),100000,replace=TRUE,prob=rep(0.25,4)))
data <- ifelse(data=="A",1,0)
假设我将数据转换为1(所需字符)和0(否则).然后在每个位置取得总和.如果总结到一个位置匹配到下一个的总和,我们停止; 否则我们进行总和并将金额存储在这些位置.然后,相应位置的最大总和将给出序列的最大长度.
我得到了算法但无法编码.请帮忙.