The sample example for ‘decompsedPSF’ package is:
library(decomposedPSF) emdpsf(data = nottem, n.ahead = 6)
## [1] 42.27093 41.45838 47.58487 46.85288 52.56489 59.02338