R/findIndex.R

findIndex <-
function (obsVector, dimens) {

  cumDimens <- array(0, length(obsVector))

  cumDimens[1] <- 1
  
  for (i in 2:length(obsVector))
    cumDimens[i] <- cumDimens[i-1] * dimens[i-1];    
 
  index <- sum(obsVector * cumDimens) + 1

  return(index)  

}

Try the genMOSSplus package in your browser

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

genMOSSplus documentation built on May 1, 2019, 10:31 p.m.