params <- as.list(params)
if (!is.na(params) && !is.list(params))
stop("params: numerical, character, or list (passed to model)")
params <- as.list(params)
if (!is.na(params) && !is.list(params))
stop("params: numerical, character, or list (passed to model)")