R/leer_par_ab.R

In PabloMBooster/CAMPtools:

leer_par_ab <- function(file = file, a_total = NULL, b_total = NULL){
  if(is.null(a_total) & is.null(b_total)){
    stop("necesitas poner valores de a_total y de b_total")
  }

  data <- read.csv(file = file)
  data$a[data$revisar == "revisa"] = a_total
  data$b[data$revisar == "revisa"] = b_total
  data$revisar = "bien"

  return(data)
}