R/kikap.R

"kikap" <-
function (BE=.QKEP,NDX=1,NDY=3,NDZ=2) {
  N <- dim(BE)[1]
  NDD <- NDX + NDY
  ND <- NDD + NDZ
  MAX <- apply(BE, 2, max)
  KI <- array(0, dim=c(MAX[1:NDD], rep(2,NDZ)))
  KI[BE] <- 1
  return(KI)
}

Try the hdeco package in your browser

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

hdeco documentation built on May 30, 2017, 8:26 a.m.