# NOT RUN {
# Creating a new scenarioRisk.
scenarios <- scenarioRisk(name = c("earthquake",
"real estate crash"),
probability = c(0.001, 0.01),
currency = c("CHF", "CHF"),
effect = c(-1000, -10000))
# printing the scenarioRisk.
print(scenarios)
# }
Run the code above in your browser using DataLab