# Load the packages
library(dplyr)
library(isorropiar)
# Load demo data
data_demo <- read_isorropia_demo_data()
# Run the ISORROPIA II model with demo data
data_isorropia <- run_isorropia(
data_demo,
directory_isorropia = "C:/Users/PangJM/Desktop/isorropia",
verbose = TRUE
)
data_isorropia %>%
summarise(output,
.groups = "drop")