powered by
kunif(min, max, k)
kunif(-1,1,4) y<-runif(1000,-1,1) mean((y-mean(y))^4)
Run the code above in your browser using DataLab