R/mkCrisp.R

Defines functions mkCrisp

mkCrisp<-function(x) {
  x<-as.factor(x)
  return(ifelse(outer(x, levels(x),"=="),1,0))
}

Try the anacor package in your browser

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

anacor documentation built on June 10, 2022, 5:09 p.m.