fwiBAT(input,init=c(ffmc_yda=85,dmc_yda=6,dc_yda=15,lat=55),out="all",
lat.adjust="TRUE")
library(fwi.fbp)
# The test data is a standard test
# dataset for FWI system(Van Wagner and Pickett 1985).
data("test_fwi")
head(test_fwi)
# using the default initial values
fwi.out<-fwiBAT(test_fwi)
# using a different set of initials
fwi.out<-fwiBAT(test_fwi,init=c(80,10,16,50))
# using only the required input variables:
fwi.out<-fwiBAT(test_fwi[,7:10])
Run the code above in your browser using DataLab