Laplace distribution
#平均0,分散2のLaplace distribution phi=1 mu=0 x=seq(-4,4,,100) #x curve((1/(2*phi))*exp(-abs(x-mu)/phi),xlim=c(-4,4),ylim=c(0,0.5),ylab="Laplace distribution") par(new=T) plot(dnorm, -4, 4, type="l",xlim=c(-4,4),ylim=c(0,0.5),lty=2,ylab="") #一様分布 x1=runif(100) x2=runif(100) plot(x1,x2,xlim=c(-2,2),ylim=c(-2,2),type="p") #Copyright(c) Hiroshi Tashiro