# \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)
# Extract all fires
all_fires <- extract_fire(result)
head(all_fires, 3)
# Extract cluster 4
fire_4 <- extract_fire(result, 4)
head(fire_4, 3)
# }
Run the code above in your browser using DataLab