# code to quick-test the visualisation
SIM<-tool1_table("2014")
r1=1600:1800
visualise_tool(SIM[r1,])
#pkg_options(curtailment.color="orange")
#visualise_tool(SIM[r1,])
calculate_indicators(SIM)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.