#Copyright(c) Hiroshi Tashiro data<-source("なんとか.なんとか")$value data data=t(data) data # #相関行列 data.cor=cor(t(data)) data.cor X=data X Xvar=function(X){ return((1/n)*rowSums(X))#各行の和 } xvar=Xvar(X) xvar#標本平均ベクトル n=nco…