Practical 2
Practical 2
22501104
MATRICES AND ARRAYS
Creation
> matrix(1:6, nrow = 2)
[,1] [,2] [,3]
[1,] 1 3 5
[2,] 2 4 6
> matrix(1:6, nrow=2, byrow=TRUE)
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 4 5 6
> matrix(1:3, nrow=2, ncol=3)
[,1] [,2] [,3]
[1,] 1 3 2
[2,] 2 1 3
Row Bind
> rbind(1:3, 2:4)
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 2 3 4
> cbind(1:3, 5:7)
[,1] [,2]
[1,] 1 5
[2,] 2 6
[3,] 3 7
> mat<-matrix(1:12, nrow = 4)
> rbind(mat, 3:5)
[,1] [,2] [,3]
[1,] 1 5 9
[2,] 2 6 10
[3,] 3 7 11
[4,] 4 8 12
[5,] 3 4 5
> cbind(mat, 1:4)
[,1] [,2] [,3] [,4]
[1,] 1 5 9 1
[2,] 2 6 10 2
[3,] 3 7 11 3
[4,] 4 8 12 4
Naming
> rownames(mat)<-c("r1","r2","r3","r4")
> mat
[,1] [,2] [,3]
r1 1 5 9
r2 2 6 10
r3 3 7 11
r4 4 8 12
> colnames(mat)<-c("c1","c2","c3")
> mat1<-matrix(1:10, nrow=2, byrow=T, dimnames=list(c("c1","c2"), c("c1","c2","c3","c4
","c5")))
> mat1
c1 c2 c3 c4 c5
c1 1 2 3 4 5
c2 6 7 8 9 10
> num<-matrix(1:8, ncol=2)
> char<-matrix(LETTERS[1:6], nrow=4, ncol=3)
> num
[,1] [,2]
[1,] 1 5
[2,] 2 6
[3,] 3 7
[4,] 4 8
> char
[,1] [,2] [,3]
[1,] "A" "E" "C"
[2,] "B" "F" "D"
[3,] "C" "A" "E"
[4,] "D" "B" "F"
> cbind(num, char)
[,1] [,2] [,3] [,4] [,5]
[1,] "1" "5" "A" "E" "C"
[2,] "2" "6" "B" "F" "D"
[3,] "3" "7" "C" "A" "E"
[4,] "4" "8" "D" "B" "F"
Random Matrix
> mat5<-matrix(sample(1:19, 12), nrow=3)
> mat5
[,1] [,2] [,3] [,4]
[1,] 1 8 18 10
[2,] 2 11 3 5
[3,] 17 15 16 12
> mat5[1,4]
[1] 10
> mat5[2,3]
[1] 3
> mat5[8]
[1] 3
> mat5[3]
[1] 17
> mat5[2, 3:4]
[1] 3 5
> mat5[2, c(2,4)]
[1] 11 5
> mat5[1:2, 2:1]
[,1] [,2]
[1,] 8 1
[2,] 11 2
> mat5[1:2, 1:2]
[,1] [,2]
[1,] 1 8
[2,] 2 11
> mat5[c(1,3),c(1,4)]
[,1] [,2]
[1,] 1 10
[2,] 17 12