R/finetab.r

Defines functions finetab

Documented in finetab

finetab <-
function(nom_cov, t_id, c_id) {
	Cat = nom_cov
	Units = rep(0, length(Cat))
	Units[t_id] = 1
	Units[c_id] = 2
	tab = table(Cat, Units)[, 2:3]
	colnames(tab) = c("T", "C")
	tab
}

Try the designmatch package in your browser

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

designmatch documentation built on Aug. 29, 2023, 5:11 p.m.