R/plot.R

In eloch216/EdR: Ed's Handy Functions

EdR.plot <- function(plot_object, save_to_pdf, file_name_string, width, height) {
	if (save_to_pdf) {
		pdf(file=file_name_string, width=width, height=height, useDingbats=FALSE)
		print(plot_object)
		dev.off()
	}
	else {
		x11(width=width, height=height)
		print(plot_object)
	}
}