replace iris in docs

R-package/R/xgb.DMatrix.save.R

@@ -6,11 +6,11 @@
 #' @param fname the name of the binary file.
 #' 
 #' @examples
-#' data(iris)
-#' iris[,5] <- as.numeric(iris[,5]=='setosa')
-#' dtrain <- xgb.DMatrix(as.matrix(iris[,1:4]), label=iris[,5])
-#' xgb.DMatrix.save(dtrain, 'iris.xgb.DMatrix')
-#' dtrain <- xgb.DMatrix('iris.xgb.DMatrix')
+#' data(agaricus.train, package='xgboost')
+#' train <- agaricus.train
+#' dtrain <- xgb.DMatrix(train$data, label=train$label)
+#' xgb.DMatrix.save(dtrain, 'xgb.DMatrix.data')
+#' dtrain <- xgb.DMatrix('xgb.DMatrix.data')
 #' @export
 #' 
 xgb.DMatrix.save <- function(DMatrix, fname) {