tmp.dens <- density(x) hist(x, freq=FALSE, ylim=c(0,max(tmp.dens$y)), col=rainbow(15), main='正态随机数', xlab='', ylab='频数') lines(tmp.dens, lwd=2, ...
確定! 回上一頁