#Calculation in R
(5 * 4) ^ (4 * 5) - 56
## [1] 1.048576e+26
(23 - 1) * (8 - 12)
## [1] -88
(56 / 8 * (3 + 4))
## [1] 49
(45 - 5 * 8 + (8 + 9))
## [1] 22
#Create the following vectors a, b, and c
vector_a <- c(2, 5, 6, 7)
print(vector_a)
## [1] 2 5 6 7
vector_b <- c(1, 0, 9, 8)
print(vector_b)
## [1] 1 0 9 8
vector_c <- c(6, 5, 8, 3)
print(vector_c)
## [1] 6 5 8 3
#Creating a 3X4 matrix with the vectors
new_matrix <- c(vector_a, vector_b, vector_c)
print(new_matrix)
## [1] 2 5 6 7 1 0 9 8 6 5 8 3
#construct star_matrix
star_matrix <- matrix(new_matrix, byrow=FALSE, nrow=3)
print(star_matrix)
## [,1] [,2] [,3] [,4]
## [1,] 2 7 9 5
## [2,] 5 1 8 8
## [3,] 6 0 6 3
#Vectors days and status used for naming
days <- c("Monday", "Tuesday", "Wednesday", "Thursday")
status <- c("Present", "Absent", "On leave")
#Naming row and coloumn
colnames(star_matrix) <- days
rownames(star_matrix) <- status
print(star_matrix)
## Monday Tuesday Wednesday Thursday
## Present 2 7 9 5
## Absent 5 1 8 8
## On leave 6 0 6 3
#Calculating rowsum and columnsum
row_sum <- rowSums(star_matrix)
print(row_sum)
## Present Absent On leave
## 23 22 15
col_sum <- colSums(star_matrix)
print(star_matrix)
## Monday Tuesday Wednesday Thursday
## Present 2 7 9 5
## Absent 5 1 8 8
## On leave 6 0 6 3
print(col_sum)
## Monday Tuesday Wednesday Thursday
## 13 8 23 16