R/cleanstrata.R

"cleanstrata" <-
function(strata)
{
a=sort(unique(strata)) 
b=1:length(a) 
names(b)=a 
as.vector(b[as.character(strata)]) 
}

Try the sampling package in your browser

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

sampling documentation built on Nov. 2, 2023, 6:26 p.m.