R/indicator.R

indicator <-
function(x){
	x<-as.factor(x)
	x<-as.double(x)
	G<-matrix(rep(0,length(x)*max(x)),ncol=max(x))
	for (i in 1:max(x)){
				G[x==i,i]<-1
		}
		return(G)
	}

Try the stima package in your browser

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

stima documentation built on June 3, 2019, 5:04 p.m.