データ data.x <- c(71,68,66,67,70,71,70,73,72,65,66) data.y <- c(69,64,65,63,65,62,65,64,66,59,62) 相関係数は > cor(data.x, data.y) [1] 0.5580547 ブートストラップ 11組のデータからランダムに11個復元抽出し相関係数を計算する、ような関数を作る…