labels.estimate, transform.estimate

kkholst · Jan 7, 2025 · ffcddfd · ffcddfd
1 parent 6a0790d
commit ffcddfd
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -180,6 +180,7 @@ S3method(kappa,data.frame)
 S3method(kappa,multinomial)
 S3method(kappa,table)
 S3method(kill,lvm)
+S3method(labels,estimate)
 S3method(labels,graphNEL)
 S3method(labels,lvm)
 S3method(labels,lvmfit)
@@ -357,6 +358,7 @@ S3method(summary,twostageCV)
 S3method(summary,zibreg)
 S3method(totaleffects,lvmfit)
 S3method(tr,matrix)
+S3method(transform,estimate)
 S3method(transform,lvm)
 S3method(twostage,estimate)
 S3method(twostage,lvm)

diff --git a/NEWS.md b/NEWS.md
@@ -1,8 +1,7 @@
 # lava 1.8.1
- - Development version
- - `sim.default` now accepts the argument `R` to be a list (of list) of
+ - `sim.default` now accepts the argument `R` to be a list (of lists) of
  arguments.
- - `subset.estimate` method
+ - New methods `subset.estimate`, `transform.estimate`, `labels.estimate`
 
 # lava 1.8.0
  - New methods `estimate.mlm`, `IC.mlm`, `pars.mlm`, `estimate.array`,

diff --git a/R/estimate.default.R b/R/estimate.default.R
@@ -1009,6 +1009,16 @@ subset.estimate <- function(x, keep, ...) {
   estimate(x, keep = keep, ...)
 }
 
+##' @export
+transform.estimate <- function(`_data`, ...) {
+  estimate(`_data`, ...)
+}
+
+##' @export
+labels.estimate <- function(object, str, ...) {
+  estimate(object, labels=str, ...)
+}
+
 ##' @export
 parameter.estimate <- function(x, ...) {
   return(x$coefmat)