R/get_initial_locations.R

In jhoffjann/nmmso.R: R Implementation of the NMMSO algorithm

#' @title get_initial_locations
#' @description Calculates the initial locations of the algorithm.
#' 
#' @param nmmso_state Structure holding state of swarm.
#' @param mn Minimum design parameter values (a vector with param_num elements).
#' @param mx Maximum design parameter values (a vector with param_num elements).
#' @return nmmso_state = Structure with the new locations.
#' 
#' @export
get_initial_locations <- function(nmmso_state, mn, mx) {
  new_location = matrix(runif(size(mx)[1]*size(mx)[2]), size(mx)[1]) * (mx - mn) + mn
  swarm = list("new_location" = new_location)
  nmmso_state$swarms = list(swarm)
  nmmso_state$swarms_changed[1] = 1
  
  return(nmmso_state)
}