R-Bayes> p=seq(0,1,length=500) > a=10 > b=3 > s=21 > ns=26 > prior=dbeta(p,a,b) > like=dbeta(p,s,ns) > post=dbeta(p,a+s,b+ns) > Names<-c("prior","likelihood","posterior") > plot(p,like,ylim=range(post),type="l",main="prior,lilelihood,and posterior",xlab="x",ylab="Density",lty=2,lwd=1) > lines(p,prior,type="l",lty=1,lwd=1) > lines(p,post,type="l",lty=3,lwd=1) > legend(0,5,Names,col=1,lty=1:3) ナイーブベイズ(Naiv
