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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.