st.pnorm<-function(x,µ,ø,right=TRUE){ if (right==FALSE) return({pnorm((x-µ)/ø)}) if (right==TRUE) return({1-(pnorm((x-µ)/ø))}) if ...
確定! 回上一頁