Assignment 1

# Answer to the  question no 1(a-d)

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

## [1] 1.048576e+26

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

## [1] 27

c<-56/8*(3+4)
print(c)

## [1] 49

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

## [1] 22

# Answer to the  question no 2(a-c)

x<-c(2,5,6,7)
y<-c(1,0,9,8)
z<-c(6,5,8,3)

matrix <- rbind(x,y,z)
print(matrix)

##   [,1] [,2] [,3] [,4]
## x    2    5    6    7
## y    1    0    9    8
## z    6    5    8    3

colnames(matrix)<-c('Mon','Tue','Wed','Thu')
rownames(matrix)<-c('Present','Absent','Onleave')

rowsum <- rowSums(matrix)
colsum <- colSums(matrix)
print(rowsum)

## Present  Absent Onleave 
##      20      18      22

print(colsum)

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

print(matrix)

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