통계 가설검정 관련 그림들 (정규분포)

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.95)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐

axis(1,at=c(-4,0,4),
     pos=c(0,0),
     label=c("",expression(mu),""),cex.axis=1.5)

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.95)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,0,margin,4),
     pos=c(0,0),
     label=c("",expression(mu),expression(z^"*"),""),
     cex.axis=1.5)

#세로
lines(c(margin,margin),c(0,1),lty='dotted')

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.95)

#표본의 Z값
z_value=qnorm(0.98)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,0,margin,z_value,4),
     pos=c(0,0),
     label=c("",expression(mu),expression(z^"*"),expression(bar(x)[1]),""),
     cex.axis=1.5)


#세로
lines(c(margin,margin),c(0,1))

#색칠을 위한 값 설정
Z_x=seq(z_value,4,by=0.01)
Z_y=dnorm(Z_x)

#색칠
polygon(c(Z_x,rev(Z_x)),c(Z_y,rep(0,length(Z_y))),col="red")

#테두리
box("outer",col="gray")

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.95)

#표본의 Z값
z_value=qnorm(0.98)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,0,z_value,4),
     pos=c(0,0),
     label=c("",expression(mu),expression(bar(x)[1]),""),
     cex.axis=1.5)

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.95)

#표본의 Z값
z_value=qnorm(0.98)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,0,z_value,4),
     pos=c(0,0),
     label=c("",expression(mu),expression(bar(x)[1]),""),
     cex.axis=1.5)


#색칠을 위한 값 설정
Z_x=seq(z_value,4,by=0.01)
Z_y=dnorm(Z_x)

#색칠
polygon(c(Z_x,rev(Z_x)),c(Z_y,rep(0,length(Z_y))),col="red")

#테두리
box("outer",col="gray")

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin1=qnorm(0.025)
margin2=qnorm(0.975)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,margin1,0,margin2,4),
     pos=c(0,0),
     label=c("",expression(z^"*"),expression(mu),expression(z^"*"),""),
     cex.axis=1.5)

#세로
lines(c(margin1,margin1),c(0,1),lty='dotted')
lines(c(margin2,margin2),c(0,1),lty='dotted')

 

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.05)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,margin,0,4),
     pos=c(0,0),
     label=c("",expression(z^"*"),expression(mu),""),
     cex.axis=1.5)

#세로
lines(c(margin,margin),c(0,1),lty='dotted')

 

#위 그래프의 R 소스코드

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE,xlim=c(-5,8))


x2=seq(-4+2,7,by=0.01)
y2=dnorm(x2,mean=3.7)
lines(x2,y2,type="l")


#임계값 설정(기각역)
margin=qnorm(0.95)

#두번째 값 조절하면 tick을 위아래로 움직일 수 있음
par(mgp=c(3, 1.8, 0))

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-5,0,3.7,8),
     pos=c(0,0),
     label=c("",expression(mu),expression(mu[2]),""),
     cex.axis=2.5)

#세로
lines(c(margin,margin),c(0,1),lty='dotted')