CalculateIRIperSegments {rroad}

Computes the IRI for fixed length segments (e.g. 100m segments) given a road profile.

Description

Computes the IRI for fixed length segments (e.g. 100m segments) given a road profile.

Usage

CalculateIRIperSegments(profile, iri_coef, segment.length = 100)

Arguments

profile

Road profile (as numeric vector in mm) whose IRI is to be calculated.

iri_coef

Set of coefficients for specific sample size (e. g. IRI_COEF_100).

segment.length

Distance (in m) for which the IRI is to be calculated. Default is 100 m.

Value

Calculated IRI (m/km) per segment (as numeric) of the given profile.

Examples

profile <- rnorm(10000)
iri <- CalculateIRIperSegments(profile, IRI_COEF_100, 20)
par(mfrow = c(1,2))
plot(profile, type="l",
   xlab="Distance [dm]", ylab="Profile [m]",
   main="Read profile (Laser measurement)")
plot(iri, type="s",
   xlab="Segment", ylab="IRI [m/km]",
   main="International Roughness Index (IRI)\nsample = 10cm, segment = 20m")