plot multipolar_displacement_result object

Plot the result of dc_generate_positions_from_durations

Usage

# S3 method for class 'multipolar_displacement_result'
plot(x, ...)

Arguments

x

object of class multipolar_displacement_result

...

further specifications, see plot for details

Examples

library(sf)

# Read source points
source_pts <- st_read(
  dsn = system.file("gpkg/data-prefecture.gpkg", package = "distanamo"),
  layer = "prefecture", quiet = TRUE
)

# Read the background layer to deform
background_layer <- st_read(
  dsn = system.file("gpkg/data-prefecture.gpkg", package = "distanamo"),
  layer = "departement", quiet = TRUE
)

# Read durations matrix
durations_mat <- read.csv(system.file("csv/mat.csv", package = "distanamo"), row.names = 1)

# Generate the positions from the whole duration matrix and
# adjust the result to the source points
pos_result <- dc_generate_positions_from_durations(
  durations = durations_mat,
  source_points = source_pts,
  adjustment_type = "euclidean"
)

# Plot result of the positioning step
plot(pos_result)


# Summary statistics of the positioning step
summary(pos_result)
#> Summary of the multipolar displacement result:
#> Min displacement: 2349.236 [m] 
#> Mean displacement: 34569.15 [m] 
#> Max displacement: 108405.5 [m] 
#> Transformation matrix:
#>      358.1063 1126.673 673162.7 
#>      -1170.315 396.8617 6619705 
#> Scale: 1208.994 
#> RMSE: 39842.59 
#> RMSE x: 25310.6 
#> RMSE y: 30770.21