Newmark displacement for a single submodel and scenario

Usage

fitDnModel(uhs, ky, Ts, Mw = 6.5, NS = 30L, Rrup = 100, IDn, NFC = "D100")

Arguments

uhs: data.table with columns Tn, p, Sa (one scenario)
ky: numeric scalar, yield acceleration (g)
Ts: numeric scalar, fundamental period (s)
Mw: numeric scalar, moment magnitude
NS: integer, Monte Carlo samples
Rrup: numeric scalar, rupture distance (km)
IDn: character, submodel identifier
NFC: character, near-fault component selector for model BM19: "D100" (maximum component, default) or "D50". Ignored by all other submodels.

Value

data.table with columns p, Dn, IDn. Dn in cm.

Examples

if (FALSE) { # \dontrun{
uhs <- data.table::fread(
  system.file("extdata", "uhs.csv", package = "newmark"))
fitDnModel(uhs, ky = 0.1, Ts = 0.3, Mw = 7.5, NS = 100, IDn = "AM88")
} # }