> pp<-marginal_smooths(ZIP)
> head(pp) # it goes from time 0.000 to 1.00- dim- 100,. , but the input time is a length of 30 

$`mu: s(time,bs="tp")`
          time  effect1__  estimate__        se__      lower__      upper__ cond__
1   0.00000000 0.00000000 -1.48827537 0.028173839 -1.541903880 -1.434690242      1
2   0.01010101 0.01010101 -1.31377424 0.024834502 -1.360782080 -1.267985475      1
3   0.02020202 0.02020202 -1.13925297 0.020966605 -1.179825926 -1.099829542      1
4   0.03030303 0.03030303 -0.96389265 0.017448517 -0.997063565 -0.930987137      1
5   0.04040404 0.04040404 -0.78740810 0.014858949 -0.815529796 -0.759702135      1
6   0.05050505 0.05050505 -0.60991937 0.012666383 -0.635275861 -0.585713722      1
......

94  0.93939394 0.93939394 -0.40260942 0.011204063 -0.423120168 -0.379915062      1
95  0.94949495 0.94949495 -0.55331497 0.012306159 -0.575554945 -0.528620104      1
96  0.95959596 0.95959596 -0.70839952 0.013920864 -0.734213530 -0.680812382      1
97  0.96969697 0.96969697 -0.86655021 0.016357522 -0.897987532 -0.833389561      1
98  0.97979798 0.97979798 -1.02698297 0.019058659 -1.063981632 -0.987788683      1
99  0.98989899 0.98989899 -1.18900578 0.023119850 -1.233208653 -1.142624037      1
100 1.00000000 1.00000000 -1.35148950 0.026478751 -1.403951584 -1.297379571      1