Assignment 1

Problem 01 a

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

## [1] 1.048576e+26

Problem 01 b

print(23-1*(8-12))

## [1] 27

Problem 01 c

print(56/8*(3+4))

## [1] 49

Problem 01 d

print(45-5*8+(8+9))

## [1] 22

Problem 02

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

m <- matrix(c(a,b,c),
              byrow=TRUE,
              nrow=3)

colnames(m) <- c("Mon", "Tue", "Wed", "Thu")
rownames(m) <- c("Present", "Absent", "On leave")

print(m)

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

cat("\n")

print(rowSums(m))

##  Present   Absent On leave 
##       20       18       22

cat("\n")

print(colSums(m))

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