Homework 01

Problem 1(a)

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

## [1] 1.048576e+26

Problem 1(b)

23-1*(8-12)

## [1] 27

Problem 1(c)

56/8*(3+4)

## [1] 49

Problem 1(d)

45-5*8+(8+9)

## [1] 22

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" , "Thu")
rownames(mat)<-c('Present', 'Absent', 'On leave')
mat

##          Mon Tue Wed Thu
## Present    2   5   6   7
## Absent     1   0   9   8
## On leave   6   5   8   3

row<-rowSums(mat)
row

##  Present   Absent On leave 
##       20       18       22

col<-colSums(mat)
col

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