# function rearranges simbobj$Performance to a matrix w/ (Replication, Iteration, Worker, Performance)
#' Title
#'
#' @param simobj simulation object
#'
#' @return matrix
#' @export
#' @import tidyverse
#'
rearranger <- function(simobj) {
pr.t <- as_tibble(simobj$Performance)
pr.t <- pr.t %>% pivot_longer(cols=3:(dim(pr.t)[2]), names_to="Bureaucrat", values_to="Performance") %>%
rename(Replication = V1,
Iteration = V2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.