R/checkFuncs.R

Defines functions check.temp .checkBalanced

.checkBalanced<-function(v,...)
	{
		freqs = table(v)		
		# Check to make sure they are all identical, and not equal to 1.
		if( !all(freqs==1) & all(freqs[1] == freqs))
		{
			return(TRUE)
		}else{
			return(FALSE)
		}
	}


check.temp <- function(assignments) {

  if (assignments[["dv"]] == "")
    return(FALSE)

  if (length(assignments[["categorical"]]) < 1)
    return(FALSE)

  return(TRUE)
}

Try the BayesFactors.gibi package in your browser

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

BayesFactors.gibi documentation built on May 2, 2019, 4:41 p.m.