skewness(c(100,200,300), type = 2)
skewness(c(100,200,300), type = 1)
skewness(c(100,200,300), type = 3)
w<-sample(4,10, TRUE)
x <- sample(10, 1000, replace=TRUE, prob=w)
skewness(x, type=2)
skewness(x, type=3)
detail(x)
Run the code above in your browser using DataLab