diff --git a/R-package/man/slice.Rd b/R-package/man/slice.Rd
index 216e23981..06d79f6c4 100644
--- a/R-package/man/slice.Rd
+++ b/R-package/man/slice.Rd
@@ -19,6 +19,6 @@ orginal xgb.DMatrix object
 data(iris)
 iris[,5] <- as.numeric(iris[,5])
 dtrain <- xgb.DMatrix(as.matrix(iris[,1:4]), label=iris[,5])
-dsub <- slice(dtrain, c(1,2,3))
+dsub <- slice(dtrain, 1:3)
 }
 
diff --git a/R-package/man/xgb.train.Rd b/R-package/man/xgb.train.Rd
index 8e0d6b498..1f29afa04 100644
--- a/R-package/man/xgb.train.Rd
+++ b/R-package/man/xgb.train.Rd
@@ -56,8 +56,8 @@ therefore it is more flexible than \code{\link{xgboost}}.
 \examples{
 data(iris)
 iris[,5] <- as.numeric(iris[,5])
-dtrain = xgb.DMatrix(as.matrix(iris[,1:4]), label=iris[,5])
-dtest = dtrain
+dtrain <- xgb.DMatrix(as.matrix(iris[,1:4]), label=iris[,5])
+dtest <- dtrain
 watchlist <- list(eval = dtest, train = dtrain)
 param <- list(max_depth = 2, eta = 1, silent = 1)
 logregobj <- function(preds, dtrain) {