data(CO2emissions)
head(CO2emissions)
E=31284288 #Emissions for 2015
allrules(E,CO2emissions$Emissions)
par(mfrow = c(2, 3))
E0 <- 33857455
Rules=c(Talmud,CEA,CEL,PRO)
percentage = 0.076
times = 20
for (claimant in 1:6) {
dynamicplot(E0, CO2emissions$Emissions, Rules, claimant, percentage, times, legend=FALSE)
}
Run the code above in your browser using DataLab