Allow one table or a list of tables to be passed as the table argument to...

Allow one table or a list of tables to be passed as the table argument to mortalityTable.jointLives. This allows different insured to have different life tables (e.g. male + female)

R/mortalityTable.jointLives.R

 #' @include mortalityTable.R periodDeathProbabilities.R
 NULL
 
+setClassUnion("mortalityTable(s)", c("mortalityTable", "list"))
 #' Class mortalityTable.jointLives - Life table for multiple joint lives
 #'
 #' A cohort life table obtained by calculating joint death probabilities for
@@ -13,7 +14,7 @@ NULL
 mortalityTable.jointLives = setClass(
     "mortalityTable.jointLives",
     slots = list(
-        table = "mortalityTable"
+        table = "mortalityTable(s)"
     ),
     contains = "mortalityTable"
 )