R/countpattern3.R

# aus e1071
# adapted for ternary patterns
countpattern3<-function (x)
{
    intpatt<-apply(as.matrix(x),1,tern2int)
    intpatt<-intpatt+1
    pat<-tabulate(intpatt,nbins=3^ncol(as.matrix(x)))
    pat
}

Try the prefmod package in your browser

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

prefmod documentation built on May 2, 2019, 4:59 p.m.