R/staty.R

In byrolew/SuperFarmerMAPA: Super Farmer

#' @title Statystyki strategii
#'
#' @description Funkcja generuje podstawowe statystyki dla wybranej strategii
#'
#' @param dane Wektor dlugosci gier, z ktorego generujemy statystyki
#' @param nazwa Nazwa strategii, dla ktorej generujemy statystyki
#'
#' @rdname staty
#'
#' @author Hanna Kranas, Alicja Gosiewska, Agnieszka Ciepielewska

staty <- function(dane, nazwa){
  statdane <-unclass(summary(dane))
  names(statdane) <- c("Min.", "1szy kw.", "Med.", "Sred.", "3ci kw.", "Max.")
  statnajszyb <- unclass(summary(SuperFarmerMAPA::najszybsza))
  statnajwol <- unclass(summary(SuperFarmerMAPA::najwolniejsza))
  names(statnajszyb) <- NULL
  names(statnajwol) <- NULL
  statystyki <- t(data.frame(statnajszyb, statdane,  statnajwol, check.names = FALSE, stringsAsFactors = FALSE))
  rownames(statystyki) <- c("strategy_maxrabbit",nazwa,"strategia_anty_yolo")

  return(round(statystyki))
}