R/makeANOVAdialog.R

#############################################
#
# 			Call ANOVA Dialog
#
#############################################

.getANOVADialog <- function(){ # Ensures that 2 copies of the dialog do not exist simultaneously
	if(!exists(".ANOVADialog")){ # checks to see if a dialog already exists
		.ANOVADialog <- new(ANOVAd) # if not, creates one
		.ANOVADialog$setLocationRelativeTo(.jnull())
		assign(".ANOVADialog",.ANOVADialog,globalenv())	# and registers it	
	}
	return(.ANOVADialog) 
}

Try the DeducerANOVA package in your browser

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

DeducerANOVA documentation built on May 2, 2019, 6:11 p.m.