読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

PCA

R pca

#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…

waveform data

R pca

#Copyright(c) Hiroshi Tashiro #waveform data(p240) h1=function(j){ return(max(6-abs(j-11),0)) } h2=function(j){ return(h1(j-4)) } h3=function(j){ return(h1(j+4)) } epsilon=rnorm(21,0,1) epsilon class1=matrix(,nrow=21,ncol=100) for(i in 1:1…