R/print.anova.CNVassoc.R

Defines functions print.anova.CNVassoc

Documented in print.anova.CNVassoc

print.anova.CNVassoc<-function(x,...){
  cat("\n\n--- Likelihood ratio test comparing 2 CNVassoc models:\n\n")
  cat("\nModel 1 call: ", deparse(x$mod1$call), "\n")
  cat("\nModel 2 call: ", deparse(x$mod2$call), "\n\n")
  cat("Chi=",x$chi.test["chi"],"(df=",x$chi.test["df"],")"," p-value=",x$chi.test["pvalue"],"\n\n")
  cat("  Note: the 2 models must be nested, and this function doesn't check this!\n")
}
  

Try the CNVassoc package in your browser

Any scripts or data that you put into this service are public.

CNVassoc documentation built on May 30, 2017, 12:50 a.m.