R/summary.Binomial.SGoF.R

In sgof: Multiple Hypothesis Testing

summary.Binomial.SGoF <-
function(object, ...){
cat("Call:\n")
print(object$call)
cat("\n")
cat("Parameters:","\n")
cat("alpha=",object$alpha,"\n")
cat("gamma=",object$gamma,"\n")
tabla<-table(object$Adjusted.pvalues<=object$gamma)
if(sum(object$Adjusted.pvalues>object$gamma)==length(object$data)){attributes(tabla)$dimnames[[1]]=c(">gamma")}else{if(sum(object$Adjusted.pvalues<=object$gamma)==length(object$data)){attributes(tabla)$dimnames[[1]]=c("<=gamma")}else{attributes(tabla)$dimnames[[1]]=c(">gamma","<=gamma")}}

cat("\n")
res <- list(Rejections=object$Rejections,FDR=object$FDR,Adjusted.pvalues=tabla )

class(res) <- "summary.Binomial.SGoF"
return(res)
}