私はRを初めて使用し、特に遅いネストされたループをベクトル化するのに問題があります。ループは中心のリスト(構造体に格納されているベクトル)を調べ、これらのベクトルと以下に示す配列の行との間の距離を見つけx
ます。速度を上げるためにこれをベクトル化する必要があることは知っていますが、そのための適切な関数や使用法を理解することはできませんapply
。
clusterCenters <- matrix(runif(10000),nrow=100)
clusterMembers <- matrix(runif(400000),nrow=4000)
features <- matrix(0,(dim(clusterMembers)[1]),(dim(clusterCenters)[1]))
for(c in 1:dim(clusterCenters)[1]){
center <- clusterCenters[c,]
for(v in 1:(dim(clusterMembers)[1])){
vector <- clusterMembers[v,]
features[v,c] <- sqrt(sum((center - vector)^2))
}
}
助けてくれてありがとう。