Difference between revisions of "ERFs of environmental pollutants"

library(OpasnetUtils) # A package with Opasnet functionalities
library(xtable)       # A package with table formats
library(ggplot2)      # A package with fancy graph formats

objects.get("7QUpp5PzOdzDSvX8")

# objects.latest("Op_en5918", "calculations") # Get the latest ovariables from code calculations on page Op_en5918.

ERF 		<- EvalOutput(ERF, N = 3)

print(xtable(ERF@output), type = 'html')

ggplot(ERF@output, # Show a bar chart
	aes(x = Health.impact, y = ERFResult)) +
	geom_bar(position="dodge") + 
	theme_grey(base_size = 24) +
	theme(axis.text.x = element_text(angle = 90, hjust = 1))

library(OpasnetUtils)
library(xtable)
library(ggplot2)

ERF <- Ovariable("ERF", ddata = "Op_en5827")
ERF@data <- ERF@data[colnames(ERF@data) != "Obs"]

objects.put(ERF)

cat("Ovariable ERF saved. Save the key for further use.\n")

ERF <- EvalOutput(ERF, N = 3)

print(xtable(ERF@output), type = 'html') # Show a result table