# 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