Harshit1694

#Calculating eigenvalues and eigenvectors
A<-matrix(c(30,31,40,41,50,51,60,61,70),nrow = 3,byrow = T)
e <- eigen(A)
e$values
e$vectors

Harshit1694

#Inverse of matrix

B<-matrix(c(30,31,40,41,50,51,60,61,70),nrow = 3,byrow = T)

A<-solve(B)
A

#Determinant of A
det(A)

Harshit1694

#Multiplication of matrix

A<-matrix(c(11,12,13,14,15,16,17,18,19),nrow = 3,byrow = T)
B<-matrix(c(20,21,22,23,24,25,26,27,28),nrow = 3,byrow = T)

A*B

Harshit1694

#Transpose of a matrix
t(A)

Harshit1694

A<-matrix(c(11,12,13,14,15,16,17,18,19),nrow = 3,byrow = T)
A

Harshit1694

data <- read.csv(file.choose())

#POPULATION PARAMETERS
pop_sd <- sd(data$Screen_size.in.cm.)*sqrt((length(data$Screen_size.in.cm.)-1)/(length(data$Screen_size.in.cm.)))
pop_mean <- mean(data$Screen_size.in.cm.)

z <- (9.5 - pop_mean) / pop_sd
z

Harshit1694

pnorm(80, mean=67, sd=13.7, lower.tail=FALSE) 

Harshit1694

pbinom(7, size=20, prob=0.25) 

Harshit1694

dbinom(7, size=20, prob=0.25) 

Harshit1694

#Steady state Matrix
steadyStates(disc_trans)