r - kruskal.test.default(list(vec1, vec2)) 中的错误：所有组必须包含数据

Question

alpha <- 0.05
cnt <- 0
names <- vector('character')
pvals <- vector('numeric')
for (i in 1:nrow(data)){
  vec1 = as.numeric(data[i:i,1:135])
  vec2 = as.numeric(data[i:i,136:415])
  
  vec1 = log2(vec1)
  vec2 = log2(vec2)
  
  tt = kruskal.test(list(vec1, vec2))
  names <- c(names, row.names(data)[i])
  pvals <- c(pvals, tt$p.value)
}
**Error in kruskal.test.default(list(vec1, vec2)) : 
  all groups must contain data
In addition: There were 50 or more warnings (use warnings() to see the first 50)**

标签： r