This function applies the Fisher integration of pvalues
fisherp(ps)
ps
a vector of p-values
p.val an integrated p-value
ps<-c(0.01,0.05,0.03,0.2) fisherp(ps)