write me
plot_PfSI(history)
parameter
do something
plot_PfSI()#> Error in lapply(X = X, FUN = FUN, ...): argument "history" is missing, with no default