# NOT RUN {
data(tankSimpleScale)
# tank_simple_scenarios<-scenarioGenerator(obs=tank_obs,
# modelTag = modelTag,
# attPerturb=attPerturb,
# exSpArgs = exSpArgs)
# Example 1: Heat Map Example
systemArgs<-list(roofArea=100,
nPeople=1,
tankVol=2000,
firstFlush=1,
write.file=FALSE,
metric="reliability")
plotArgs=list(title="Scenario Neutral Space",
legendtitle="Reliability",
xlim=c(-2,2),
ylim=c(0.7,1.3),
performancelimits=c(0.6,0.85))
plot<-performanceSpaces(data=tank_simple_scenarios,
plotTag="Heat",
systemModel = tankWrapper,
systemArgs = systemArgs)
plot$plot
# Note options
# plotArgs$contour=FALSE
# plotArgs$lowfill="antiquewhite" ###From supported R colour names
# plotArgs$highfill="#88CCEE" ###Hexidecimal specification also okay
# }
# NOT RUN {
# }
# NOT RUN {
#Example 2
result<-performanceSpaces(data=tank_simple_scenarios,
plotTag = "Contours",
plotArgs=plotArgs,
systemModel = tankWrapper,
systemArgs = systemArgs)
result$plot
# }
# NOT RUN {
#Example 3
# }
# NOT RUN {
plotArgs$contourlevels=c(0.67,0.71)
result<-performanceSpaces(data=tank_simple_scenarios,
plotTag = "Contours",
plotArgs=plotArgs,
systemModel = tankWrapper,
systemArgs = systemArgs)
result$plot
# }
# NOT RUN {
# }
# NOT RUN {
###Example 4 - One-at-a-time/"OAT" plot
data(oatScenarios)
systemArgs=list(roofArea=50,
nPeople=1,
tankVol=3000,
firstFlush=1,
write.file=FALSE,
metric="reliability")
plotArgs=list(title="Scenario Neutral Space",
legendtitle="Reliability",
xlim=c(-2,2),
ylim=c(0.7,1.3),
performancelimits=c(0.6,0.85))
oat_plot=performanceSpaces(data=oat_out,
plotTag = "OAT",
plotArgs=plotArgs,
systemModel = tankWrapper,
systemArgs = systemArgs)
oat_plot
# }
Run the code above in your browser using DataLab