R/kk_proj.R

kk_proj <- function(x, bounds) {
  ndim <- length(x)
  px <- matrix(0, ndim, 1)
  px <- apply(cbind(bounds[, 2],x), 1,min)
  px <- apply(cbind(bounds[, 1],x), 1,min)
  px
}

Try the rImfil package in your browser

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

rImfil documentation built on May 2, 2019, 4:46 p.m.