４月１５日、新納からの出題

問題１ テキスト p.50 の記述に従って、myiris.dat を作成せよ
       （作成したら中身を確認すること）。

解）

> data(iris)
> write(t(as.matrix(iris[,-c(5)])),file="myiris.dat",ncolumns=4)


問題２  p.13 の記述に従って、myiris.dat を読み出して、150行4列の行列 X を作成せよ。

解）

> x <- matrix(scan("myiris.dat"),ncol=4,byrow=T)

問題３  行列 X の各列の値の平均を求めよ。答えを得る手順を示し、最後に答えを書く

解）
> apply(x,2,mean)
[1] 5.843333 3.057333 3.758000 1.199333

問題４  行列 X の各列の値の最大値とその最大値をもつ行の行数を求めよ。答えを得る手順を示し、最後に答えを書く

解）
> y1 <- x[,1]
> (m1 <- max(y1))
[1] 7.9
> c(1:150)[y1 == m1]
[1] 132

以下同様