解决R检验中“数据是恆量”问题

「R」R检验中的“数据是恆量”问题 - 云+社区 - 腾讯云 (tencent.com)

可见要达到：两组中任意一组不全相等 的目的

###################################################去掉数据是恆量

data <- as.matrix(data)

#编写函数，返回一行有几个不同值

uniq.num <- function(x){

  y<-length(unique(x[1:3]))+length(unique(x[4:6]))

  return(y)

}

#length () 函数用于获取或设置向量 (列表)或其他对象的长度

#按行运行函数，计算每行的不同值

uniq.num.df <- data.frame(num = apply(data, 1, uniq.num))

#过滤掉uniq.num为1或2的,留下＞2的

uniq.num.df.2 <- filter(uniq.num.df, num>2)

#过滤原数据

data <- data[rownames(uniq.num.df.2), ]

完美哈哈 感谢🐱