2011-05-19 R 関数定義norm <- function(x) sqrt(x%*%x) sapply: sapply() は結果の「 names 属性付きのベクトル」か「 names 属性付きの行列」を返す.sapply(x, mean)