# \donttest{
# Time consuming functions (>5 seconds)
# Get clustering results
result <- hotspot_cluster(hotspots,
lon = "lon",
lat = "lat",
obsTime = "obsTime",
activeTime = 24,
adjDist = 3000,
minPts = 4,
minTime = 3,
ignitionCenter = "mean",
timeUnit = "h",
timeStep = 1)
# Get fire movement of the first cluster
mov1 <- get_fire_mov(result, cluster = 1, step = 3, method = "mean")
mov1
# Get fire movement of the second cluster
mov2 <- get_fire_mov(result, cluster = 2, step = 6, method = "median")
mov2
# }
Run the code above in your browser using DataLab