R Under development (unstable) (2024-11-18 r87347 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(spotoroo)
> 
> test_check("spotoroo")

-------------------------------- SPOTOROO 0.1.4 --------------------------------

-- Calling Core Function : `hotspot_cluster()` --

-- "1" time index = 1 hour 
v Transform observed time > time indexes
i 970 time indexes found

-- activeTime = 24 time indexes | adjDist = 3000 meters 
v Cluster
i 16 clusters found (including noise)

-- minPts = 4 hot spots | minTime = 3 time indexes 
v Handle noise
i 6 clusters left
i noise proportion : 0.935 %

-- ignitionCenter = "mean" 
v Compute ignition points for clusters
i average hot spots : 176.7
i average duration : 131.9 hours

-- Time taken = 0 mins 4 secs for 1070 hot spots 
i 0.003 secs per hot spot

--------------------------------------------------------------------------------

-- "1" time index = 1 hour 
v Transform observed time > time indexes
i 970 time indexes found

-------------------------------- SPOTOROO 0.1.4 --------------------------------

-- Calling Core Function : `hotspot_cluster()` --

-- "1" time index = 1 numeric 
v Transform observed time > time indexes
i 970 time indexes found

-- activeTime = 24 time indexes | adjDist = 3000 meters 
v Cluster
i 16 clusters found (including noise)

-- minPts = 4 hot spots | minTime = 3 time indexes 
v Handle noise
i 6 clusters left
i noise proportion : 0.935 %

-- ignitionCenter = "mean" 
v Compute ignition points for clusters
i average hot spots : 176.7
i average duration : 131.8 numeric

-- Time taken = 0 mins 4 secs for 1070 hot spots 
i 0.003 secs per hot spot

--------------------------------------------------------------------------------
i spotoroo object: 6 clusters | 1070 hot spots (including noise points)

-------------------------------- SPOTOROO 0.1.4 --------------------------------

-- Calling Core Function : `summary_spotoroo()` --

CLUSTERS: ALL
OBSERVATIONS: 1070
FROM: 1
TO:   970


-- Clusters 
i Number of clusters: 6

Observations in cluster
        Min.     1st Qu.        Mean     3rd Qu.        Max.
       111.0       131.0       176.7       233.2       256.0
Duration of cluster (numeric)
        Min.     1st Qu.        Mean     3rd Qu.        Max.
       111.0       118.0       131.8       146.0       148.0

-- Hot spots (excluding noise) 
i Number of hot spots: 1060

Distance to ignition points (m)
        Min.     1st Qu.        Mean     3rd Qu.        Max.
         0.0      2840.3      5159.2      6981.6     13452.7
Time from ignition (numeric)
        Min.     1st Qu.        Mean     3rd Qu.        Max.
         0.0        25.0        62.3        98.0       148.0

-- Noise 
i Number of noise points: 10 (0.93 %)


--------------------------------------------------------------------------------

-------------------------------- SPOTOROO 0.1.4 --------------------------------

-- Calling Core Function : `summary_spotoroo()` --

CLUSTERS: 1 3
OBSERVATIONS: 282
FROM: 1
TO:   809


-- Clusters 
i Number of clusters: 2

Observations in cluster
        Min.     1st Qu.        Mean     3rd Qu.        Max.
       126.0       131.0       136.0       141.0       146.0
Duration of cluster (numeric)
        Min.     1st Qu.        Mean     3rd Qu.        Max.
       116.0       123.5       131.0       138.5       146.0

-- Hot spots (excluding noise) 
i Number of hot spots: 272

Distance to ignition points (m)
        Min.     1st Qu.        Mean     3rd Qu.        Max.
         0.0      2772.3      5058.0      6898.5     13452.7
Time from ignition (numeric)
        Min.     1st Qu.        Mean     3rd Qu.        Max.
         0.0        17.0        63.1        94.5       146.0

--------------------------------------------------------------------------------

-------------------------------- SPOTOROO 0.1.4 --------------------------------

-- Calling Core Function : `hotspot_cluster()` --

-- "1" time index = 1 hour 
v Transform observed time > time indexes
i 970 time indexes found

-- activeTime = 24 time indexes | adjDist = 3000 meters 
v Cluster
i 16 clusters found (including noise)

-- minPts = 4 hot spots | minTime = 3 time indexes 
v Handle noise
i 6 clusters left
i noise proportion : 0.935 %

-- ignitionCenter = "mean" 
v Compute ignition points for clusters
i average hot spots : 176.7
i average duration : 131.9 hours

-- Time taken = 0 mins 4 secs for 1070 hot spots 
i 0.003 secs per hot spot

--------------------------------------------------------------------------------

-- "1" time index = 1 hour 
v Transform observed time > time indexes
i 970 time indexes found

-------------------------------- SPOTOROO 0.1.4 --------------------------------

-- Calling Core Function : `hotspot_cluster()` --

-- "1" time index = 1 numeric 
v Transform observed time > time indexes
i 970 time indexes found

-- activeTime = 24 time indexes | adjDist = 3000 meters 
v Cluster
i 16 clusters found (including noise)

-- minPts = 4 hot spots | minTime = 3 time indexes 
v Handle noise
i 6 clusters left
i noise proportion : 0.935 %

-- ignitionCenter = "mean" 
v Compute ignition points for clusters
i average hot spots : 176.7
i average duration : 131.8 numeric

-- Time taken = 0 mins 3 secs for 1070 hot spots 
i 0.003 secs per hot spot

--------------------------------------------------------------------------------

-- "1" time index = 1 numeric 
v Transform observed time > time indexes
i 4 time indexes found

-- "1" time index = 1.5 numeric 
v Transform observed time > time indexes
i 3 time indexes found

-- "1" time index = 1.5 days 
v Transform observed time > time indexes
i 3 time indexes found

-- "1" time index = 24 hours 
v Transform observed time > time indexes
i 4 time indexes found

-- "1" time index = 12 hours 
v Transform observed time > time indexes
i 7 time indexes found

-- "1" time index = 60 mins 
v Transform observed time > time indexes
i 73 time indexes found

-- "1" time index = 3600 secs 
v Transform observed time > time indexes
i 73 time indexes found

-- "1" time index = 1.5 days 
v Transform observed time > time indexes
i 3 time indexes found

-- "1" time index = 24 hours 
v Transform observed time > time indexes
i 4 time indexes found

-- "1" time index = 12 hours 
v Transform observed time > time indexes
i 7 time indexes found

-- "1" time index = 60 mins 
v Transform observed time > time indexes
i 73 time indexes found

-- "1" time index = 3600 secs 
v Transform observed time > time indexes
i 73 time indexes found
[ FAIL 0 | WARN 5 | SKIP 0 | PASS 65 ]

[ FAIL 0 | WARN 5 | SKIP 0 | PASS 65 ]
> 
> proc.time()
   user  system elapsed 
  20.45    0.89   22.09