skewness

mydata<-read.csv("E:\\EXCELR ASSIGMENTS\\Q9_b.csv")
a<-mydata[-1]
View(a)
attach(a)
plot(a)

library(moments)
skewness(a)

##         SP         WT 
##  1.5814537 -0.6033099

kurtosis(a)

##       SP       WT 
## 5.723521 3.819466

hist(a$SP)

hist(a$WT)