@@ -193,7 +193,7 @@ BinomialOutcomeTreatment <- function(...,
193193 return (res )
194194 }
195195 get_transform <- function () {
196- td <- get(' transform' , envir = settings $ state , inherits = FALSE )
196+ res <- get(' transform' , envir = settings $ state , inherits = FALSE )
197197 return (res )
198198 }
199199 obj $ fit = fit
@@ -377,7 +377,7 @@ NumericOutcomeTreatment <- function(...,
377377 return (res )
378378 }
379379 get_transform <- function () {
380- td <- get(' transform' , envir = settings $ state , inherits = FALSE )
380+ res <- get(' transform' , envir = settings $ state , inherits = FALSE )
381381 return (res )
382382 }
383383 obj $ fit = fit
@@ -535,7 +535,7 @@ MultinomialOutcomeTreatment <- function(...,
535535 return (res )
536536 }
537537 get_transform <- function () {
538- td <- get(' transform' , envir = settings $ state , inherits = FALSE )
538+ res <- get(' transform' , envir = settings $ state , inherits = FALSE )
539539 return (res )
540540 }
541541 obj $ fit = fit
@@ -674,7 +674,7 @@ UnsupervisedTreatment <- function(...,
674674 return (res )
675675 }
676676 get_transform <- function () {
677- td <- get(' transform' , envir = settings $ state , inherits = FALSE )
677+ res <- get(' transform' , envir = settings $ state , inherits = FALSE )
678678 return (res )
679679 }
680680 obj $ fit = fit
0 commit comments