i dont know why my loess curves is at the bottom:
Can somebody help me?
Maybe because your
tm vector starts at 1 instead of 0, so it's not properly aligned with
ts.obj? If that's right, then
tm <- seq(from = 0, to = length(ts.obj)) should fix it, I think.