I have tried this but its not the same as in the links. x=seq(-3,3,length.out=100) y=dnorm(x) plot(x,y,type="l")
y3=y*2 x3=x+1 plot(range(c(-4,4)),range(c(0,3)),xlab="x",ylab="y",col="white" ) lines(x,y4,type="l") x2=x*0.5 lines(x2,y,type="l") -- View this message in context: http://r.789695.n4.nabble.com/To-create-skewness-and-kurtosis-in-R-tp4591286p4591412.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.