plot_actives(SIREmulators$ems)
# Remove the nR output and aIR input from the plot
plot_actives(SIREmulators$ems, c('nS', 'nI'), c('aSI', 'aSR'))
# Note that we can equally restrict the emulator list...
plot_actives(SIREmulators$ems[c('nS', 'nI')], input_names = c('aSI', 'aSR'))
Run the code above in your browser using DataLab