R/get_the_best_state.R

get_the_best_state <- function(possible_states, ...) {
    ev_vector <- apply(possible_states, 1, expected_value, ...)
    #print (max(ev_vector))
    return (possible_states[which.max(ev_vector),])
}#TODO żeby zwracało wektor o najlepszej wartości oczekiwanej
byrolew/SuperFarmerMAPA documentation built on May 13, 2019, 9:55 a.m.