R/bias.R

In vincnardelli/crowdpostsampler: Spatial Crowdsourcing Sampling simulatior

#' Title
#'
#' @param crowdsimulation
#'
#' @return
#' @export
#'
#' @examples
bias <- function(crowdsimulation){
  if(!is(crowdsimulation,"crowdsimulation")) stop("Argument not valid")

  bias_detail <- abs(sim$Htest_detail-sim$mu)/sim$mu
  bias <- sapply(bias_detail, mean)

  out <- list(bias=bias,
              bias_detail = bias_detail)
  class(out) <- "crowdbias"
  return(out)

}