Assignment 1

Problem No 1 (a)

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

## [1] 1.048576e+26

Problem no 1 (b)

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

## [1] 27

Problem No 1 (c)

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

## [1] 49

Problem No 1 (d)

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

## [1] 22

Problem No 2

a<- c(2,5,6,7)

print(a)

## [1] 2 5 6 7

b<- c(1,0,9,8)

print(b)

## [1] 1 0 9 8

c<- c(6,5,8,3)

print(c)

## [1] 6 5 8 3

d<- rbind(a,b,c)

print(d)

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

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

print(d)

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

Sum_of_rows <- rowSums(d)

Sum_of_rows

##  Present   Absent On leave 
##       20       18       22

Sum_of_columns <- colSums(d)

Sum_of_columns

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