R/print.summary.mbmdr.R

Defines functions print.summary.mbmdr

Documented in print.summary.mbmdr

print.summary.mbmdr <-
function(x,...){
  x <- as.data.frame(x) 
  if(x[1,"MIN.P"]>0.05){
  	cat("\n No significative interaction models found\n")
  	return(NULL)
  }
  else cat("\n Significative interaction models found are:\n\n")
  print(x)
}

Try the mbmdr package in your browser

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

mbmdr documentation built on May 30, 2017, 7:12 a.m.