#データを正規化する関数を作成
###標準化とは
与えられたデータを平均が0で分散が1のデータに変換する操作のこと
各データ xi から平均 μ を引き,その値を標準偏差 σ で割ることで達成される
zi=(xi-μ)/σ
###与えられたdata(行列)を列ごとにを標準化する関数 standalizeを作成
standalize <- function(data,ncol(data))
{ for(i in ncol(data))
{
x <- as.matrix(data[,i])
y <- (x-mean(x)/sd(x))
data[,i] <- y
}
return(data)
}
この関数はfor文を解除すると、指定列だけを標準化できます。