R/Domains.r

In TeachingSampling: Selection of Samples and Parameter Estimation in Finite Population

Defines functions Domains

Documented in Domains

#' @export

Domains<-function(y){
y<-as.factor(y)
d<-as.double(y)
n<-length(d)
Dom<-matrix(0,n,max(d))
colnames(Dom)<-levels(y)
for(k in 1: max(d)){
Dom[,k]<-as.double(d==k)}
Dom
}

Try the TeachingSampling package in your browser