> x <- read.table ("clipboard", header=TRUE ) > x サンプル 測定値 群 1 山田 45 図形科学 2 山田 39 幾何学 3 山田 30 製図学 4 山田 30 架空力学 5 鈴木 27 図形科学 6 鈴木 24 幾何学 7 鈴木 18 製図学 8 鈴木 21 架空力学 9 蒼井 54 図形科学 10 蒼井 24 幾何学 11 蒼井 33 製図学 12 蒼井 9 架空力学 13 国実 42 図形科学 14 国実 36 幾何学 15 国実 21 製図学 16 国実 15 架空力学 17 安河内 54 図形科学 18 安河内 21 幾何学 19 安河内 36 製図学 20 安河内 21 架空力学 > str (x) 'data.frame': 20 obs. of 3 variables: $ サンプル: Factor w/ 5 levels