R/Domains.r

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
}
psirusteam/TeachingSampling documentation built on April 23, 2020, 8:31 p.m.