diff --git a/h2o-bindings/bin/custom/R/gen_hglm.py b/h2o-bindings/bin/custom/R/gen_hglm.py
index 84fc2d2ce9c7..f2a5ae19f5b5 100644
--- a/h2o-bindings/bin/custom/R/gen_hglm.py
+++ b/h2o-bindings/bin/custom/R/gen_hglm.py
@@ -117,8 +117,8 @@
     # build a HGLM model with prostate dataset
     prostate_path <- system.file("extdata", "prostate.csv", package = "h2o")
     prostate <- h2o.uploadFile(path = prostate_path)
-    prostate$CAPSULE <- as.factor(prostate$CAPSULE)
     prostate$RACE <- as.factor(prostate$RACE)
-    model <- h2o.hglm(y="VOL", x=c("AGE","RACE","DPROS"), random_columns = ["AGE"], group_column = "RACE", training_frame=prostate)
+    model <- h2o.hglm(y="VOL", x=c("AGE","RACE","DPROS"), random_columns = ["AGE"], 
+                      group_column = "RACE", training_frame=prostate)
     """
 )
diff --git a/h2o-r/h2o-package/R/hglm.R b/h2o-r/h2o-package/R/hglm.R
index 6e4fa2cbed30..dff129441944 100644
--- a/h2o-r/h2o-package/R/hglm.R
+++ b/h2o-r/h2o-package/R/hglm.R
@@ -67,9 +67,9 @@
 #' # build a HGLM model with prostate dataset
 #' prostate_path <- system.file("extdata", "prostate.csv", package = "h2o")
 #' prostate <- h2o.uploadFile(path = prostate_path)
-#' prostate$CAPSULE <- as.factor(prostate$CAPSULE)
 #' prostate$RACE <- as.factor(prostate$RACE)
-#' model <- h2o.hglm(y="VOL", x=c("AGE","RACE","DPROS"), random_columns = ["AGE"], group_column = "RACE", training_frame=prostate)
+#' model <- h2o.hglm(y="VOL", x=c("AGE","RACE","DPROS"), random_columns = ["AGE"], 
+#'                   group_column = "RACE", training_frame=prostate)
 #' 
 #' }
 #' @export