Rufaida-21304050–Data-Visualization-with-R-Assignment-01-.R

#Problem1(a)

result_a <- (5*4)^(4*5)-56
print(paste("Result a:",result_a))

## [1] "Result a: 1.048576e+26"

#Problem1(b)

result_b <- 23-1*(8-12)
print(paste("Result b:", result_b))

## [1] "Result b: 27"

#Problem1(c)

result_c <- 56/8*(3+4)
print(paste("Result c:",result_c))

## [1] "Result c: 49"

#Problem1(d)

result_d <- 45-5*8+(8+9)
print(paste("Result d:", result_d))

## [1] "Result d: 22"

#Problem02

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