r - 在 R 中添加向量

Question

我有一个包含 3 个不同组的多元数据，其中 d=2，每组有 10 个数据点（n=10）。我试图找到

对于每个组，因此最终输出将是 3 个大小为 2 的向量。但是，当我尝试这样做时（下面的代码），

## data ##
d <- 2
n<-c(10,10,10) 
mu1=rep(1,d)
mu2=rep(1,d)
mu3=rep(1,d)
sigma <- matrix(c(1.0, 0,
                  0, 1.0), nrow = 2)
groups<-rep(1:3, n)
x1=mvrnorm(n[1], mu1,sigma)
x2=mvrnorm(n[2], mu2,sigma)
x3=mvrnorm(n[3], mu3,sigma)
x=rbind(x1,x2,x3)

K <- function(x){
  I=length(unique(groups))
  Kij <- matrix(,n[i],d)
  for (i in 1:I){
    for (j in 1:n[i]){
    Kij<- x[j,]-x[-j,]
  return (as.matrix(sum(Kij[groups==i],n[i],d)))
    }
  }
}

我不断得到 1 个数字作为输出，而不是每个组的 2 个输出向量。有什么建议吗？

先感谢您

标签： rfunctionvectormultivariate-testing