Assignment 1

code Chunks

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

a <- c(2, 5, 6, 7)
b <- c(1, 0, 9, 8)
c <- c(6, 5, 8, 3)
matrix_data <- rbind(a, b, c)
colnames(matrix_data) <- c("Mon", "Tue", "Wed", "Thu")
rownames(matrix_data) <- c("Present", "Absent", "On leave")
print(matrix_data)

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

row_sums <- rowSums(matrix_data)
print(row_sums)

##  Present   Absent On leave 
##       20       18       22

col_sums <- colSums(matrix_data)
print(col_sums)

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