Assignment 1

Ans 1.a

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

## [1] 1.048576e+26

Ans 1.b

23-1*(8-12)

## [1] 27

Ans 1.c

56/8*(3+4)

## [1] 49

Ans 1.d

45-5*8+(8+9)

## [1] 22

Ans 2

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

z<- rbind(a,b,c)
colnames(z)<- c("Mon", "Tue", "Wed", "Thu")
rownames(z)<- c("Present", "Absent", "On leave")
z

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

Sum_row <- rowSums(z)
Sum_row

##  Present   Absent On leave 
##       20       18       22

Sum_column <- colSums(z)
Sum_column

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