Ensure units of simulation match those of fit input

flr · Dec 5, 2024 · 4b51119 · 4b51119
1 parent 1762359
commit 4b51119
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/simulate-methods.R b/R/simulate-methods.R
@@ -95,6 +95,8 @@ setMethod("simulate", signature(object = "a4aFitSA"),
 			attr(out@index[[i]], "range") <- attr(object@index[[i]], "range")
 		}
     }
+
+    units(out) <- units(object)
     out
 })