R/apollo_mlhs.R

In apollo: Tools for Choice Model Estimation and Application

#' Generate random draws using MLHS algorithm
#' 
#' Generate random draws using the Modified Latin Hypercube Sampling algorithm.
#' 
#' Internal use only.
#' Algorithm described in
#' Hess, S., Train, K., and Polak, J. (2006) Transportation Research Part B, 40, 147 - 163.
#' @param  N Numeric. The number of draws to generate in each dimension
#' @param  d Numeric. The number of dimensions to generate draws in
#' @param  i Numeric. The number of individuals to generate draws for
#' @return A (N*i) x d matrix with random draws
#' @export
apollo_mlhs=function(N,d,i){
  shuffle=function(inv){
    out=inv[rank(stats::runif(length(inv)))];
    out}
  
  temp=seq(0,N-1)/N;
  out=matrix(0,N*i,d);
  for(k in 1:d){
    for(j in 1:i){
      out[(1+N*(j-1)):(N*j),k] = shuffle(temp + stats::runif(1)/N);
    }
  }
  out
}