library(tigerstats)

#수익률 평균=40%,표준편차=10%인 정규분포에서 수익률이 60%보다 낮을 확률
pnorm(60,mean=40,sd=10)
1-pnorm(60,m=40,s=10)
#수익률 평균=40%,표준편차=10%인 정규분포에서 수익률이 60%보다 높은 확률(표준화)
1-pnorm(2,0,1)
qnormGC(0.9772499, region="below",m=40,s=10, graph=T)

#P(Z<1.645)
pnorm(1.645, 0,1) 

#P(Z<K)=0.95일 때, K의 값은?
qnorm(0.95, 0,1)
qnormGC(0.95, region="below",m=0,s=1, graph=T)

#t-통계량이 -3.271, n=16일 때 p의 값은?
pt(-3.271, 15)
ptGC(-3.271, region="below",df=15, graph=T)

#n=16일때, 5% 유의수준에서 기각역(단측)
qt(p=0.05, df=15)
ptGC(-1.753, region="below",df=15, graph=T)
round(rnorm(n=20, mean=40, sd=10), digits=2)

pchisq(11.07, df=5, lower.tail=F)
pchisqGC(11.07, df=5, region="above", graph=T)

library(sjPlot)
dist_f(p=0.05, deg.f1 = 20, deg.f2 = 30)
dist_f(f=1.93, deg.f1 = 20, deg.f2 = 30)