Assignment 1

Problem 1

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

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

## [1] 1.048576e+26

2. 23-1*(8-12)

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

## [1] 27

3. 56/8*(3+4)

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

## [1] 49

4. 45-5*8+(8+9)

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

## [1] 22

Problem 2

1. 2,5,6,7

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

print(a)

## [1] 2 5 6 7

2. 1,0,9,8

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

print(b)

## [1] 1 0 9 8

3. 6,5,8,3

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