まあ，面白っちゃあ面白い。そうでなきゃ，クソだ

> fivenum(iris[1:4])
 以下にエラー `[.data.frame`(x, order(x, na.last = na.last, decreasing = decreasing)) :
  undefined columns selected
> fivenum(as.numeric(iris[1:4]))
 以下にエラー fivenum(as.numeric(iris[1:4])) :
   (list) オブジェクトは 'double' に変換できません
> fivenum(as.matrix(iris[1:4]))
[1] 0.1 1.7 3.2 5.1 7.9