[go: up one dir, main page]
Menu ▾ ▴

[2722f9]: / R / RM2 / R / EM.R  Maximize  Restore  History

Download this file

5 lines (4 with data), 242 Bytes 

1
2
3
4
EM = function (demand = demand, eps = 0.005) {

    res <- try(RM2:::EM_internal(demand, eps), silent = TRUE)

    if (class(res) == 'try-error') {print("Warning: All demand instances are unconstrained")} else {return(res)}

} # end EM function