R/leer_par_vb.R

In PabloMBooster/CAMPtools:

leer_par_vb <- function(file, ...){
  data <- read.csv(file)
  data$k[data$revisar == "revisa"] = median(data$k[data$revisar == "bien"], na.rm = T)
  data$Winf[data$revisar == "revisa"] = median(data$Winf[data$revisar == "bien"], na.rm = T)
  data$revisar = "bien"

  return(data)
}