R/kimar.R

"kimar" <-
function (ik=2,BE=.QKEP) {

  #SUM OVER THE ik-TH VARIABLES

  NC <- length(dim(BE))
  A <- c(1:NC)
  KI <- apply(BE,A[-ik],sum)
  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.