# カメ頭数 n.kame <- 40 # カメ色 kame.col <- "orange" # タイトル ttl <- "統計量・スカラー・距離・測度・順序" subttl <- "〜統計遺伝学2013〜" make.kame.hyoushi(ttl,n.kame,kame.col,subttl) make.kame.hyoushi <- function(ttl="",n.kame=30,kame.c…