diff --git a/R-package/R/xgb.save.raw.R b/R-package/R/xgb.save.raw.R
index 11fc44470..d8ed6f526 100644
--- a/R-package/R/xgb.save.raw.R
+++ b/R-package/R/xgb.save.raw.R
@@ -12,7 +12,7 @@
 #' test <- agaricus.test
 #' bst <- xgboost(data = train$data, label = train$label, max.depth = 2, 
 #'                eta = 1, nround = 2,objective = "binary:logistic")
-#' raw <- xgb.save(bst)
+#' raw <- xgb.save.raw(bst)
 #' bst <- xgb.load(raw)
 #' pred <- predict(bst, test$data)
 #' @export