Home work 01 (R)

Assignment 01

Problem 01

(5*4)^(4*5)-56

## [1] 1.048576e+26

##problem 1(b)

23-1*(9-13)

## [1] 27

##Problem 1(c)

60/8*(5+6)

## [1] 82.5

##problem 1(d)

45-5*8+(9+3)

## [1] 17

##Problem (2)

a<-c(2,5,6,7)
b<-c(1,0,9,8)
c<-c(6,5,8,3)
d<-c(a,b,c)

mat<-matrix(d, byrow =TRUE,
               nrow=3)
print(mat)

##      [,1] [,2] [,3] [,4]
## [1,]    2    5    6    7
## [2,]    1    0    9    8
## [3,]    6    5    8    3

colnames(mat)<-c("Mon", "Tue", "Wed", "Fri")
rownames(mat)<=c('present', 'Absent', 'On level')

## logical(0)

mat

##      Mon Tue Wed Fri
## [1,]   2   5   6   7
## [2,]   1   0   9   8
## [3,]   6   5   8   3

row<-rowSums(mat)
row

## [1] 20 18 22

col<-colSums(mat)
col

## Mon Tue Wed Fri 
##   9  10  23  18