R语言 求P值

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)