Environmental noise level statistics and rating indicators

EquivalentLevel: Leq = 10 log10(sum t_i 10^(L_i/10) / sum t_i). LevelStatistics: L_N levels (the 1 - N/100 type-7 quantile of equally spaced samples), Leq, Lmax, Lmin. SoundExposureLevel: SEL of samples dt seconds apart (T0 = 1 s). CombineLevels: energetic sum. DayEveningNight: Lday, Levening, Lnight and Lden (Directive 2002/49/EC Annex I) from 24 hourly levels, with US Ldn (night 22-07, +10 dB) and California CNEL (evening 19-22 weighted by 3, night weighted by 10). AircraftDnl: DNL from single-event SELs, normalised by 86400 s. Identical to the Python arm morie.fn.noiseacoustics.

Usage

EquivalentLevel(levels, durations = NULL)

LevelStatistics(levels, percentiles = c(10, 50, 90))

SoundExposureLevel(levels, dt = 1)

CombineLevels(levels)

DayEveningNight(
  hourly,
  day = c(7, 19),
  evening = c(19, 23),
  night = c(23, 7),
  evening_penalty = 5,
  night_penalty = 10
)

AircraftDnl(sel_day, sel_night = numeric(0))

Arguments

levels

Sound levels (dB).

durations

Durations (default equal).

percentiles

Exceedance percentages.

dt

Sample spacing (s).

hourly

24 hourly Leq values, index = starting hour.

day, evening, night

Start and end hours of the Lden windows.

evening_penalty, night_penalty

Lden penalties (dB).

sel_day, sel_night

Event SELs by period.

Value

Numeric or list.

References

Directive 2002/49/EC relating to the assessment and management of environmental noise, Annex I.

US EPA (1974). Information on Levels of Environmental Noise Requisite to Protect Public Health and Welfare with an Adequate Margin of Safety. EPA 550/9-74-004.

Examples

EquivalentLevel(c(60, 70))
#> [1] 67.40363
LevelStatistics(c(50, 52, 55, 60, 71))$L10
#> [1] 66.6
DayEveningNight(rep(60, 24))$Lden
#> [1] 66.39524