plot_time_profile: Plot time profiles given a time-series generated by impulse...
In pompom: Person-Oriented Method and Perturbation on the Model

Plot time profiles given a time-series generated by impulse response analysis

1	plot_time_profile(time.series.data, var.number, threshold = 0.01, xupper = 20)

`time.series.data`	data of impulse response in long format
`var.number`	number of variables in the time-series
`threshold`	threshold of asymptote of equilibrium
`xupper`	upper limit of x-axis

plot_time_profile(time.series.data = bootstrap_iRAM_2node$time.profile.data,
                 var.number = 2,
                 threshold= .01,
                 xupper = 20)