Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Appearance settings

remip48/AISanalyze

Open more actions menu

Repository files navigation

AISanalyze

R-CMD-check

DOI

Documentation

License: MIT

Documentation

A complete step-by-step workflow is available in the User guide.

📖 Full documentation, tutorials and function reference: https://remip48.github.io/AISanalyze

Overview

AISanalyze is an R package for analysing Automatic Identification System (AIS) data. It provides tools to

  • estimate vessel travel distance, time and speed;
  • correct GPS errors and delays;
  • identify AIS base stations and aircraft;
  • interpolate vessel positions;
  • extract vessel positions around target locations and times;
  • estimate vessel characteristics (ship type, length, width, draught, IMO and name).

Installation

# install.packages("remotes")
remotes::install_github("remip48/AISanalyze")

Main functions

Function Description
AIStravel() Estimate travelled distance, time and speed
AISidentify_stations_aircraft() Identify AIS stations and aircraft
AIScorrect_speed() Correct GPS errors and delays
AISinterpolate() Interpolate vessel positions
AISextract() Extract vessels around target locations
AISinfos() Estimate vessel characteristics

Example

library(AISanalyze)

data("ais")
data("point_to_extract")

## define the Unix time (seconds since 1970-01-01)
ais$timestamp <- as.numeric(lubridate::ymd_hms(ais$datetime)))
point_to_extract$timestamp <- as.numeric(lubridate::ymd_hm(point_to_extract$datetime)))

## process, correct, interpolate and extract AIS data:
ais <- AIStravel(ais)

ais_identified <- AISidentify_stations_aircraft(ais)

ais_corrected <- AIScorrect_speed(ais_identified)

ais_interpolated <- AISinterpolate(ais_data = ais_corrected,
                                   type_interpolation = "maximum_time_interval",
                                   maximum_time_interval = list(maximum_gap_seconds = 60))

ais_extracted <- AISextract(ais_data = ais_interpolated,
                            data = point_to_extract,
                            return_all_vessel_locations = T,
                            search_into_radius_m = 50000)

head(ais_extracted)

Citation

If you use AISanalyze, please cite:

Pigeault R., Ruser A., Ramírez-Martínez N.C., Geelhoed S.C.V., Haelters J., Nachtsheim D.A., Schaffeld T., Sveegaard S., Siebert U., Gilles A. (2024). Maritime traffic alters distribution of the harbour porpoise in the North Sea. Marine Pollution Bulletin. 208: 116925.

License

This project is licensed under the MIT License. See the LICENSE file for details.

About

Correct, interpolate, extract and analyze AIS data

Topics

Resources

Contributing

Stars

Watchers

Forks

Releases

Packages

Used by

Contributors

Languages

Morty Proxy This is a proxified and sanitized view of the page, visit original site.