# If you don't specify the y variable it will plot the secondary extinctions
# by default
data("net")
history <- SimulateExtinctions(Network = net, Method = "Mostconnected")
ExtinctionPlot(History = history$sims)
# You can also specify the variable to be ploted in the y axis
ExtinctionPlot(History = history$sims, Variable = "Link_density")
Run the code above in your browser using DataLab