# NOT RUN {
 
library(AirSensor)
tbl <- 
  example_pat_failure_A %>%
  PurpleAirSoH_dailyABFit() 
  
names(tbl)
  
timeseriesTbl_multiPlot(
  tbl, 
  parameters = c("pm25_A_pm25_B_rsquared", "pm25_A_pm25_B_slope"),
  ylim = c(-1,1)
)
# }
Run the code above in your browser using DataLab