Loess curves at the bottom

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.