add transformed data

boost-R · Jun 18, 2018 · 067fbc0 · 067fbc0
1 parent 783e14d
commit 067fbc0
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/glmtest.R b/tests/glmtest.R
@@ -187,11 +187,17 @@ dataqol <- dataqol[complete.cases(dataqol[,c("QoL", "arm", "pain")]),]
 ## rescale outcome to [0,1]
 dataqol$QoL <- dataqol$QoL/100
 
+data(QoLdata)
+identical(dataqol, QoLdata )
+
 
 # fit simple model
 beta1 <- betaboost(QoL ~ pain + arm, data = dataqol)
 coef(beta1, off2int = TRUE)
 
+beta2 <- betaboost(QoL ~ pain + arm, data = QoLdata)
+coef(beta2, off2int = TRUE)
+stopifnot(identical(coef(beta1), coef(beta2)))
 #------------------