chilliwack_bt_05
yield <- ypr_tabulate_yield(chilliwack_bt_05, type = "optimal")
yield$pi <- round(yield$pi, 2)
yield <- yield[c("Llo", "Hm", "Rk", "pi")]
yield <- tidyr::spread(yield, Rk, pi)
yield <- yield[order(-yield$Hm), ]
yield
if (FALSE) {
ypr_plot_yield(chilliwack_bt_05, plot_values = FALSE) +
ggplot2::facet_grid(Rk ~ Hm) +
ggplot2::aes(group = Llo, linetype = Llo)
}
Run the code above in your browser using DataLab