R/salvage_prediction.R

In fishsciences/DSM2Analysis: Functions for Analyzing DSM2 HYDRO Output

#' Salvage prediction
#'
#' Predicted salvage based on salvage_newdata and salvage_model.
#'
#' @md
#' @param facility         Water export facility: CVP, SWP, both
#' @param newdata          Data frame with input data needed for model predictions
#'
#' @export
#'

salvage_prediction <- function(facility, newdata){
  newdata$salvaged <- predict(object = salvage_model(facility),
                              newdata = newdata,
                              type = "response")
  return(newdata)
}