Assignment 1 on R

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

## [1] 1.048576e+26

23-1*(8-12)

## [1] 27

56/8*(3+4)

## [1] 49

45-5*8+(8+9)

## [1] 22

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

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

colnames(mat)<- c("Mon","Tue","Wed","Thu")
mat

##   Mon Tue Wed Thu
## a   2   5   6   7
## b   1   0   9   8
## c   6   5   8   3

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