R/bin_params.R

In dpastoor/mrgexplore: interactively explore mrgsolve models

# set bin numbers for vector of parameters
# @param params vector of parameter names
# @param nparams number of parameters per bin
bin_params <- function (params, nparams = 5) 
{
    if (!is.vector(params)) 
        stop("params must be a vector")
    if (length(params) <= nparams) {
      return(rep(1, length(params)))
    }
    mod <- length(params)%/%nparams
    remainder <- length(params)%%nparams
    bin_number <- c(rep(1:mod, each = nparams), rep(mod + 
        1, times = remainder))
    if (length(bin_number) != length(params)) 
        stop("something went wrong in bin_number calculation")
    return(bin_number)
}