x<-c(23,20,18,29,43,35,32,40,29,26,24,26)
mean(x)
var(x)
sd(x)
median(x)
table(x)
as.numeric(names(table(x)))[which.max(table(x))]
CV<-sd(x)/mean(x)
CV
n=length(x);
g1=sqrt(1/(6*n))*(sum(((x-mean(x))/sd(x))^3));
print(g1)
n=length(x);
g2=sqrt(n/24)*(mean(((x-mean(x))/sd(x))^4)-3);
print(g2);