R/summary.r

In mcp.project: Applies different False Discovery Rate controlling procedures

Defines functions summary.fdr

Documented in summary.fdr summary.fdr

summary.fdr=function(fdr)  {
  r=sum(fdr$Pvals[['rejected']])
  m=length(fdr$Pvals[['rejected']])
  cat('There were',r,'rejections out of',m,'hypothsis tested which are',r/m, 'percent \n')
  cat('Using method',fdr$method,'at FDR level of',fdr$q,'\n')
  
}

Try the mcp.project package in your browser