https://github.com/vsimko/rroad
R Package: Road Condition Analysis
https://github.com/vsimko/rroad
car index iri monitoring road-condition road-safety road-traffic roads roads-and-highways roughness
Last synced: 10 months ago
JSON representation
R Package: Road Condition Analysis
- Host: GitHub
- URL: https://github.com/vsimko/rroad
- Owner: vsimko
- License: other
- Created: 2016-02-05T14:54:36.000Z (over 10 years ago)
- Default Branch: master
- Last Pushed: 2020-05-07T15:21:23.000Z (about 6 years ago)
- Last Synced: 2025-03-17T22:39:35.339Z (about 1 year ago)
- Topics: car, index, iri, monitoring, road-condition, road-safety, road-traffic, roads, roads-and-highways, roughness
- Language: R
- Homepage: https://vsimko.github.io/rroad
- Size: 17.7 MB
- Stars: 13
- Watchers: 2
- Forks: 4
- Open Issues: 6
-
Metadata Files:
- Readme: README.Rmd
- Contributing: CONTRIBUTING.md
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
README
---
output:
md_document:
variant: markdown_github
---
```{r Setup, include=FALSE}
library(rroad)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "vignettes/README-"
)
set.seed(1)
```
# rroad R package
Set of tools for monitoring road condition.
Currently, the following features are supported:
- International Roughness Index (IRI) computation
- continuously increasing segment
- fixed length overlapping segments with an offset
[](https://travis-ci.org/vsimko/rroad)
[](https://codecov.io/github/vsimko/rroad?branch=master)
[](http://cran.r-project.org/package=rroad)
[](http://www.rdocumentation.org/packages/rroad)
[](https://dependencyci.com/github/vsimko/rroad)
## Download and Install
To download the development version of the package, type the following at the R command line:
```{r Install latest, eval=FALSE}
install.packages("devtools")
devtools::install_github("vsimko/rroad")
```
To download the release version of the package on CRAN, type the following at the R command line:
```{r Install from CRAN, eval=FALSE}
install.packages("rroad")
```
## Examples
```{r iri_from_random_profile, fig.width=8, fig.height=4}
profile <- rnorm(10000)
iri <- CalculateIRIperSegments(profile, IRI_COEF_100, 20)
par(mfrow = c(1,2)) # space for two diagrams
plot(profile, type = "l",
xlab = "Distance [dm]", ylab = "Profile [mm]",
main = "Read profile (Laser measurement)")
plot(iri, type = "s",
xlab = "Segment", ylab = "IRI [m/km]",
main = "International Roughness Index (IRI)\nsample = 10cm, segment = 20m")
```
## References
Sayers, Michael W; Gillespie, Thomas D; Queiroz, Cesar A.V. 1986
**The International Road Roughness Experiment (IRRE) : establishing correlation and a calibration standard for measurements**.
World Bank technical paper ; no. WTP 45. Washington, DC : The World Bank. [Link]
[Link]: http://documents.worldbank.org/curated/en/326081468740204115/The-International-Road-Roughness-Experiment-IRRE-establishing-correlation-and-a-calibration-standard-for-measurements