Today
x <- read.csv("C:\\Users\\Admin\\Desktop\\SARLAKG\\mba.csv")
dim(x)
## [1] 773 3
colnames(x)
## [1] "datasrno" "workex" "gmat"
mean(x$gmat)
## [1] 711.1643
attach(x)
mean(gmat)
## [1] 711.1643
median(gmat)
## [1] 710
#library(e1071)
#mfv(gmat)
sd(gmat)
## [1] 29.33971
var(gmat)
## [1] 860.8188
library(e1071)
## Warning: package 'e1071' was built under R version 3.4.4
skewness(gmat)
## [1] -0.5931675
kurtosis(gmat)
## [1] 1.141141
kurtosis(gmat)
## [1] 1.141141
#install.packages("e1071")
library(e1071)
windows()
boxplot(workex)
windows()
barplot(gmat)
hist(gmat)
boxplot(gmat)
summary(x)
## datasrno workex gmat
## Min. : 1 Min. : 9.0 Min. :600.0
## 1st Qu.:194 1st Qu.: 41.0 1st Qu.:690.0
## Median :387 Median : 52.0 Median :710.0
## Mean :387 Mean : 57.5 Mean :711.2
## 3rd Qu.:580 3rd Qu.: 69.0 3rd Qu.:730.0
## Max. :773 Max. :279.0 Max. :780.0
pnorm(22,20,4)-pnorm(15,20,4)
## [1] 0.5858127
windows()
qqnorm(log(workex))
qqline(log(workex))
qnorm(0.95)
## [1] 1.644854