R/summary.crowdsimulation.R

In vincnardelli/crowdpostsampler: Spatial Crowdsourcing Sampling simulatior

#' Title
#'
#' @param x
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
summary.crowdsimulation <- function(x, ...){
  print(x)
  cat("\n Simulation detail")
  cat("\n HTest: \n")
  print(x$Htest_detail)
  cat("\n Var: \n")
  print(x$var_detail)
}