昨日の続き k<-3 t1<-acos(0.9) t2<-acos(0.2) CategoryVectorFull<-function(k){ tmp<-CategoryVector(k) tmp2<-NULL n<-length(tmp[,1]) for(i in 1:(n-1)){ for(j in (i+1):n){ x<-(tmp[i,]-tmp[j,]) tmp2<-rbind(tmp2,c(x),c(-x)) } } tmp2<-tmp2/sqrt(s…