var<-(54)^(45)-56 var1<-23-1(8-12) var2<-56/8(3+4) var3<-45-5*8+(8+9) 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”) row_sums <- rowSums(matrix_data) col_sums <- colSums(matrix_data) print(“Matrix:”) print(matrix_data) print(“Row sums:”) print(row_sums) print(“Column sums:”) print(col_sums)