skewness

mydata<-read.csv("E:\\EXCELR ASSIGMENTS\\Q9_a.csv")
a<-mydata[-1]
View(a)
attach(a)
library(moments)
skewness(a)

##      speed       dist 
## -0.1139548  0.7824835

kurtosis(a)

##    speed     dist 
## 2.422853 3.248019

hist(a$speed)

hist(a$dist)