R/GammaPriorCh.R

Defines functions GammaPriorCh

Documented in GammaPriorCh

GammaPriorCh <-
function(theta, prob, d){
	a <- d/2
	b <- 0.5*2*a*theta^2/qt(p=prob,df=2*a)^2
	cat("Gamma Parameters: ",a,b,"\n")
	list(a=a,b=b)
}

Try the SpatialEpi package in your browser

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

SpatialEpi documentation built on June 2, 2018, 9:04 a.m.