Assignment 1

Assignment 1

Question 1

1(a)

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

print(a1)

## [1] 1.048576e+26

1(b)

b1 <- 23-1*(8-12)

print(b1)

## [1] 27

1(c)

c1 <-   56/8*(3+4)

print(c1)

## [1] 49

1(d)

d1 <-   45-5*8+(8+9)

print(d1)

## [1] 22

Question 2 2(a)

vec_a <- c(2,5,6,7)
print(vec_a)

## [1] 2 5 6 7

2(b)

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

print(vec_b)

## [1] 1 0 9 8

2(c)

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

print(vec_c)

## [1] 6 5 8 3

2(matrix)

abc_matrix <- matrix(c(vec_a,vec_b,vec_c),nrow = 3, byrow = TRUE)

rownames(abc_matrix) <- c("Present", "Absent", "On leave")

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

rowSums(abc_matrix)

##  Present   Absent On leave 
##       20       18       22

colSums(abc_matrix)

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

print(abc_matrix)

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

Attendance <- rowSums(abc_matrix)

Students <- colSums(abc_matrix)

print(Attendance)

##  Present   Absent On leave 
##       20       18       22

print(Students)

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