data(geolife_traj)
geolife_traj$date_time <- as.POSIXct(
paste(geolife_traj$date, geolife_traj$time),
format = "%Y-%m-%d %H:%M:%S",
tz = "GMT"
)
geolife_traj$t <- as.numeric(
geolife_traj$date_time - min(geolife_traj$date_time)
)
st_dbscan(
x = geolife_traj$x,
y = geolife_traj$y,
t = geolife_traj$t,
eps_spatial = 3, # meters
eps_temporal = 30, # seconds
min_pts = 3
)
Run the code above in your browser using DataLab