powered by
pval_simu(s, theo_dist)
s
rmixchisq
## Not run: # theo_dist <- rnorm(n=10000, mean=0, sd=1) # TcGSA:::pval_simu(s=1.96, theo_dist) # 1-pnorm(q=1.96, mean = 0, sd = 1, lower.tail = TRUE, log.p = FALSE) # ## End(Not run)
Run the code above in your browser using DataLab