R/gamper.R

gamper <-
function(h, k=500)
{
	n <- 10000
	c <- 5000
	gam0 <- min((n - c)/n, (1 - (1 - 0.2^(1/k))^(1/
		h))) * 100
	print(gam0)
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.