SFMS Insights: Fork CFFDRS library to use immediately #4994
Description
Describe the task
Fork CFFDRS library + introduce testing package
Acceptance Criteria
- Determine if we will be using a package manager or not (email to Brett M)
- Add GH action to run tests automatically
- Submit 1 test to CFFDRS for approval
- Test Library
- Once 1st test is approved, create all tests
Tabular test data are provided in Van Wagner and Pickett (1985): https://ostrnrcan-dostrncan.canada.ca/entities/publication/29706108-2891-4e5d-a59a-a77c96bc507c. This test data set is available through the R cffdrs package. The following R script produces FWI System outputs that are within one decimal place of the test data published back in 1985.
library(cffdrs)
data("test_fwi")
output <- fwi(
input = test_fwi,
init = data.frame(ffmc = 85, dmc = 6, dc = 15, lat = 40)
)
output[,c("FFMC","DMC","DC","ISI","BUI","FWI")] <- round(output[,c("FFMC","DMC","DC","ISI","BUI","FWI")], digits = 1)
output[,"DSR"] <- round(output[,"DSR"], digits = 2)
output
Additional context:
#4963