# No further checks here: fingers crossed :)
stop("gmodel: function(dataHO, targetHO, param) --> function(X) --> y")
if (is.numeric(params) || is.character(params))
params <- as.list(params)
# No further checks here: fingers crossed :)
stop("gmodel: function(dataHO, targetHO, param) --> function(X) --> y")
if (is.numeric(params) || is.character(params))
params <- as.list(params)