Skip to content

Instantly share code, notes, and snippets.

HARSHIT GUPTA Harshit1694

View GitHub Profile
View eigenvalues.R
#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
View Inverse.R
#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)
View Mmult.R
#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
View matrix.R
A<-matrix(c(11,12,13,14,15,16,17,18,19),nrow = 3,byrow = T)
A
View Z_score.R
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
View pnorm.R
pnorm(80, mean=67, sd=13.7, lower.tail=FALSE)
View pbinom.R
pbinom(7, size=20, prob=0.25)
View dbinom.R
dbinom(7, size=20, prob=0.25)
View MC_steadystate.R
#Steady state Matrix
steadyStates(disc_trans)
You can’t perform that action at this time.