2012-04-13から1日間の記事一覧
#平均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=""…