1

您好，请找到下面提到的代码。我想要的是根据我想要进行的某些条件检查向我的数组添加值。如果这些值是合格的，那么它们应该添加到数组中，否则它们应该被丢弃。但是，我无法获得所需的数组。在这方面的任何帮助都会有很大帮助。

>NODE_1
[1]GTTGGCCGAGCCCCAGGACGCGTGGTTGTTGAACCAGATCAGGTCCGGGCTCCACTGCACGTAGTCCTCTTCCCAATTTCCCTTAA

>NODE_2
[1] CCTCCGGCGGCACCACGGTCGGCGAGGCCCTCAACATCCTG GAGCGCACCGACCTGTCCACCGCGGACAAGGCCGGTTACCT
GCACCGCTACATCGAGGCCAGCCGCATCGCGTTCGCGGACC 

>NODE_3
[1]GCCCGGCGCCTGGCCGCGGGCGAGTGGGTCGTGGACCTGCGCTCCCGGGTGGCCTTCGCCGCCGGTCACGTCGCCGGG
   TCGCTCAACTTCGAGGCCGACGGACAGCT

我的代码是：

Length <- function(a)
{
  b<-list()
  for ( i in 1: length(a))
  {
    b[i]<-which(length(a[i])<30, arr.ind = FALSE, useNames = TRUE)
    m<- array(b[i])
  }
}
k<- Length(Y)

所以我想做的就是只将那些数据添加到长度小于 30 的数组b中。Y

4

1 回答 1

1

您应该使用nchar()而不是length()获取字符数。

并以 R 方式执行此操作，您可以使用布尔索引：k <- a[nchar(a)<30]

希望有帮助！

于 2011-08-05T09:02:07.537 回答