# header = TRUE…データファイルの1行目が変数名を表す事を指定する。 データ <- read.table(file.choose(), header = TRUE) # 統計量を出す。 summary(データ$Googleトップ10文字数) summary(データ$山田ブログ文字数) # 分散と標準偏差 Googleトップ10不偏分散 <- var(データ$Googleトップ10文字数) Googleトップ10不偏分散 Googleトップ10標準偏差 <- sd(データ$Googleトップ10文字数) Googleトップ10標準偏差 山田ブログ不偏分散 <- var(データ$山田ブログ文字数) 山田ブログ不偏分散 山田ブログ標準偏差 <- sd(データ$山田ブログ文字数) 山田ブログ標準偏差