R Assignment 01

#problem 01 calculations in R #a

(5*4)^(4*5)-56

## [1] 1.048576e+26

#b

23-1*(8-12)

## [1] 27

#c

56/8*(3+4)

## [1] 49

#d

    45-5*8+(8+9)

## [1] 22

#problem 02 Vectors

a<-c(2,5,6,7)
b<-c(1,0,9,8)
c<-c(6,5,8,3)

mat<-matrix(c(a,b,c), nrow = 3,ncol = 4, byrow=FALSE)

#Naming the matrix

mat

##      [,1] [,2] [,3] [,4]
## [1,]    2    7    9    5
## [2,]    5    1    8    8
## [3,]    6    0    6    3

rownames(mat)<-c("Present","Absent","On Leave")
colnames(mat)<-c("Mon","Tue","Wed","Thu")

#Calculating rowsum amd coloumnsum

d<-c(a,b,c)
row<-rowSums(mat)
col<-colSums(mat)
row

##  Present   Absent On Leave 
##       23       22       15

col

## Mon Tue Wed Thu 
##  13   8  23  16