Assignment 01

Problem 1a

(5*4)^(4*5)-56
## [1] 1.048576e+26

Problem 1b

23-1*(8-12)
## [1] 27

Problem 1c

56/8*(3+4)
## [1] 49

Problem 1d

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)

mat <- rbind(a, b, c)

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
rowSums <- rowSums(mat)

rowSums
##  Present   Absent On leave 
##       20       18       22
colSums <- colSums(mat)

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