R/print.crowd.R

In vincnardelli/crowdpostsampler: Spatial Crowdsourcing Sampling simulatior

#' Print crowd
#'
#' @param x
#'
#' @return
#' @export
#'
#' @examples

print.crowd <- function(x, ...){
  cat("\n Crowdsourcing spatial simulation")
  cat("\n Input")
  cat("\n NN ", x$NN)
  cat("\n nn ", x$nn)
  cat("\n lambda", x$lambda, "\n\n")

  vec <- x$moran$estimate
  names(vec) <- c("Moran I statistic", "Expectation", "Variance")
  print(vec)

}