| #平均0、分散１ mu <- 0;sigma <- 1 x1 <- mu - 4*sigma; x2 <- mu + 4*sigma#x軸の上限下限 y1 <- (1/(sqrt(2*pi)*sigma))*1.05#その時のy軸の値 x <- seq(x1,x2,length.out=400)#400等分する y <- dnorm(x,mean=mu,sd=sigma) plot(x,y,type="l",xlim=c(x1,x2),ylim=c(0,y1)) lines(c(mu,mu),c(0,dnorm(mu,mean=mu,sd=sigma)),lty=2) abline(h=0,lty=3);abline(v=0,lty=3) |
