% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/fitDnModel.R
\name{fitDnModel}
\alias{fitDnModel}
\title{Newmark displacement for a single submodel and scenario}
\usage{
fitDnModel(uhs, ky, Ts, Mw = 6.5, NS = 30L, Rrup = 100, IDn, NFC = "D100")
}
\arguments{
\item{uhs}{data.table with columns Tn, p, Sa (one scenario)}

\item{ky}{numeric scalar, yield acceleration (g)}

\item{Ts}{numeric scalar, fundamental period (s)}

\item{Mw}{numeric scalar, moment magnitude}

\item{NS}{integer, Monte Carlo samples}

\item{Rrup}{numeric scalar, rupture distance (km)}

\item{IDn}{character, submodel identifier}

\item{NFC}{character, near-fault component selector for model BM19:
\code{"D100"} (maximum component, default) or \code{"D50"}.
Ignored by all other submodels.}
}
\value{
data.table with columns p, Dn, IDn. Dn in cm.
}
\description{
Newmark displacement for a single submodel and scenario
}
\examples{
\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")
}
}
