myscratchpad

# 平方和を計算する
ss <- function(x) {
  a <- x-mean(x)
  sum(a^2)
  }
ss(iris[,1])

# データフレームの変数名を調べる
dn <- function(x) {
  data.frame(names(x))
  }
dn(iris)