# \donttest{
# Load example data
data(Streamflow_training_10var)
data(Streamflow_testing_10var)
# Define variables
Predictors <- c("Prcp","SRad","Tmax","Tmin","VP","smlt","swvl1","swvl2","swvl3","swvl4")
Predictants <- c("Flow")
# Build SCA model
sca_model <- SCA(
Training_data = Streamflow_training_10var,
X = Predictors,
Y = Predictants,
Nmin = 5,
alpha = 0.05,
resolution = 1000
)
# Use S3 methods
print(sca_model)
summary(sca_model)
sca_predictions <- predict(sca_model, Streamflow_testing_10var)
sca_importance <- importance(sca_model)
sca_evaluation <- evaluate(sca_model, Streamflow_testing_10var, Streamflow_training_10var)
# }
Run the code above in your browser using DataLab