refine doc, with Rd

2014-09-06 11:17:38 -07:00
parent 7879db8702
commit f1d7b012a6
10 changed files with 139 additions and 15 deletions
--- a/R-package/man/getinfo.Rd
+++ b/R-package/man/getinfo.Rd
@@ -23,6 +23,9 @@ Get information of an xgb.DMatrix object
 data(iris)
 iris[,5] <- as.numeric(iris[,5]=='setosa')
 dtrain <- xgb.DMatrix(as.matrix(iris[,1:4]), label=iris[,5])
-labels <- getinfo(dtrain, "label")
+labels <- getinfo(dtrain, 'label')
+setinfo(dtrain, 'label', 1-labels)
+labels2 <- getinfo(dtrain, 'label')
+stopifnot(all(labels2 == 1-labels))
 }