角座標・多次元球・カイ自乗分布・非心カイ自乗分布・αエラー・パワーなど library(sphere) ThetaAngle<-function(cos,sin){ t<-acos(cos) t[which(sin<0)]<-2*pi-t[which(sin<0)] t } Simplex<-function(Ts,a,r){ A<-Ts%*%t(a) R<-Ts%*%r L<-sqrt(A^2+R^2) …