R/estGStar.R

Defines functions estGStar

Documented in estGStar

estGStar <-
function(data){
	if(missing(data))
		stop("data is missing.")
	
	mean <- rowSums(data)/ncol(data)
	gstar <- 1*(mean > .5)
	
	return(gstar)
}

Try the bingat package in your browser

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

bingat documentation built on May 1, 2019, 9:11 p.m.