Displaying 1 result from an estimated 1 matches for "f_k2".
Did you mean:
f_2
2011 Jul 01
0
How to filter XY pairs of inacurate gps position along track, taking into account the time index to not mix track from different days in one average track
...f_y (x=Raw$Lon, y=Raw$Lat)
#lines(Raw$Lon_v2,Raw$Lat_v2,col=2)
# ver 2 ------------------------------------------------------------------------------
op <- par(mfrow = c(2,1), mgp = c(2,.8,0), mar = .1+c(3,3,3,1))
plot(Raw$Lon,Raw$Lat,type="l",main = "lowess()")
f_k2=0.3
Raw$Lon_v2<-(lowess(x=Raw$Lon, y=Raw$Lat,f=f_k2))$x
Raw$Lat_v2<-(lowess(x=Raw$Lon, y=Raw$Lat,f=f_k2))$y
points(Raw$Lon_v2,Raw$Lat_v2,col=2,pch='+')
lines(Raw$Lon_v2,Raw$Lat_v2,col=2)
f_k3=0.6
Raw$Lon_v2<-(lowess(x=Raw$Lon, y=Raw$Lat,f=f_k3))$x
Raw...