R/print.ez.R

Defines functions print.ez

Documented in print.ez

print.ez <- function(x,...) {
	results <- x
	code = "</pre>"
	code = paste(code,"<h1>Analysis of Variance</h1>\n")
	for(i in 1:length(results)) {
			code = paste(code,"<h3>",names(results[i]),"</h3>\n",sep="")
			code = paste(code,h.df(results[[i]], rowcolors = TRUE),"\n",sep="")
			if(!is.null(attr(results[i],"warnings"))) code = paste(code,attr(results[i],"warnings"))
		}
	if(!is.null(attr(results,"warnings"))) code = paste(code,attr(results,"warnings"))
	code = paste(code,"<pre>\n")
	cat(code)
	invisible(results)
	}

Try the DeducerRichOutput package in your browser

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

DeducerRichOutput documentation built on May 2, 2019, 4:53 p.m.