P_value <- function(cdf,x,paramet,side=0){
n <-length(paramet)
p <-switch(n+1,
cdf(x),
cdf(x,paramet),
cdf(x,paramet[1],paramet[2]),
cdf(x,paramet[1],paramet[2],paramet[3])
)
if(side <0) p
else if(side >0) 1-p
else
if(p<1/2) 2*p
else 2*(1-p)
}
P_value(pnorm,3.71,c(0,1),0)
R语言 求P值
最新推荐文章于 2023-08-04 14:24:36 发布