# NOT RUN {
library(EDA)
data(carbon)
data(factordata)
## set parameters
cdata <- carbon[,-c(1,2)]
years <- carbon$year
Sector <- c("b1", "b2", "b3")
Fuel <- colnames(cdata)
Factor <- names(factordata)
## run EDA model
eda1 <- EDA(cdata, factordata, years = years, Factor = Factor,
Fuel = Fuel, Sector = Sector, method = "LMDI")
eda1
plot(eda1)
# }
Run the code above in your browser using DataLab