#Title:Assignment-1
#Name:Abdul Kader Zilani
#Problem1(A)
result_a <- (5*4)^(4*5)-56
print(paste("Result a", result_a))
## [1] "Result a 1.048576e+26"
#b
result_b <- 23-1*(8-12)
print(paste("Result b", result_b))
## [1] "Result b 27"
#c
result_c <- 56/8*(3+4)
print(paste("Result c" , result_c))
## [1] "Result c 49"
#d
result_d <- 45-5*8+(8+9)
print(paste("Result d", result_d))
## [1] "Result d 22"
#Problem2
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:")
## [1] "Matrix:"
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:")
## [1] "Row Sums:"
print(row_sums)
## Present Absent On leave
## 20 18 22
col_sums <- colSums(matrix_data)
print("Column Sums:")
## [1] "Column Sums:"
print(col_sums)
## Mon Tue Wed Thu
## 9 10 23 18