From c884df9d965b233197c94f3b9c67453a57d9eebc Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sat, 19 May 2018 15:05:46 +0000
Subject: [PATCH] Add mortalityTable.NA to indicate an empty table

---
 NAMESPACE                 |  1 +
 R/mortalityTable.period.R |  5 +++++
 man/mortalityTable.NA.Rd  | 14 ++++++++++++++
 3 files changed, 20 insertions(+)
 create mode 100644 man/mortalityTable.NA.Rd

diff --git a/NAMESPACE b/NAMESPACE
index fe90d05..703e734 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -18,6 +18,7 @@ export(makeQxDataFrame)
 export(mortalityComparisonTable)
 export(mortalityTable)
 export(mortalityTable.MakehamGompertz)
+export(mortalityTable.NA)
 export(mortalityTable.Weibull)
 export(mortalityTable.ageShift)
 export(mortalityTable.deMoivre)
diff --git a/R/mortalityTable.period.R b/R/mortalityTable.period.R
index b15483d..3bdca02 100644
--- a/R/mortalityTable.period.R
+++ b/R/mortalityTable.period.R
@@ -92,3 +92,8 @@ mortalityTable.onceAndFuture = function(transitionAge, name = "Deterministic mor
     )
 }
 
+
+#' Empty mortality table indicating NA
+#'
+#' @export
+mortalityTable.NA = mortalityTable.period(name = NA_character_, ages = NA_integer_, deathProbs = NA_real_)
diff --git a/man/mortalityTable.NA.Rd b/man/mortalityTable.NA.Rd
new file mode 100644
index 0000000..1afdd28
--- /dev/null
+++ b/man/mortalityTable.NA.Rd
@@ -0,0 +1,14 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/mortalityTable.period.R
+\docType{data}
+\name{mortalityTable.NA}
+\alias{mortalityTable.NA}
+\title{Empty mortality table indicating NA}
+\format{An object of class \code{mortalityTable.period} of length 1.}
+\usage{
+mortalityTable.NA
+}
+\description{
+Empty mortality table indicating NA
+}
+\keyword{datasets}
-- 
GitLab