R入門課題(10月23日)の解答

R入門課題(10月23日)の解答
時田陽一
解答(1)
1. 手順は以下の通り
出力結果
> a <- c(1,2,3)
>A
> b <- c(4,5,6)
a b c
> c <- c(7,8,9)
a1 4 7
> A <- cbind(a,b,c)
b2 5 8
> At <- t(A)
c3 6 9
> B <- cbind(A,At)
>B
a b c
a1 4 7 1 2 3
b2 5 8 4 5 6
c3 6 9 7 8 9
解答(2)
2. 以下の通り
> x <- array(c(1:10),dim=c(2,5))
> vec1 <- as.vector(x)
[1] 1 2 3 4 5 6 7 8 9 10
> vec2 <- c(x)
[1] 1 2 3 4 5 6 7 8 9 10
よってどちらも同じ解となる
解答(3)
3. 以下の通り
> kenf <- factor(ken)
> attendf <- factor(cut(attend, breaks=0+3*(0:10)))
> table(attendf, kenf)
kenf
attend iwa sas sin
(12,15] 0
1 0
(15,18] 1
0 1
(18,21] 1
1 3
(21,24] 1
0 1

Download Report