fix linter

mengxr · mengxr · commit 0ac224ef1a3e · 2016-03-22T10:29:06.000-07:00
diff --git a/R/pkg/inst/tests/testthat/test_mllib.R b/R/pkg/inst/tests/testthat/test_mllib.R
@@ -146,12 +146,12 @@ test_that("naiveBayes", {
   # R code to reproduce the result.
   # We do not support instance weights yet. So we ignore the frequencies.
   #
-  # library(e1071)
-  # t <- as.data.frame(Titanic)
-  # t1 <- t[t$Freq > 0, -5]
-  # m <- naiveBayes(Survived ~ ., data = t1)
-  # m
-  # predict(m, t1)
+  #' library(e1071)
+  #' t <- as.data.frame(Titanic)
+  #' t1 <- t[t$Freq > 0, -5]
+  #' m <- naiveBayes(Survived ~ ., data = t1)
+  #' m
+  #' predict(m, t1)
   #
   # -- output of 'm'
   #

Original file line number	Diff line number	Diff line change
`@@ -146,12 +146,12 @@ test_that("naiveBayes", {`
`146`	`146`	`# R code to reproduce the result.`
`147`	`147`	`# We do not support instance weights yet. So we ignore the frequencies.`
`148`	`148`	`#`
`149`		`- # library(e1071)`
`150`		`- # t <- as.data.frame(Titanic)`
`151`		`- # t1 <- t[t$Freq > 0, -5]`
`152`		`- # m <- naiveBayes(Survived ~ ., data = t1)`
`153`		`- # m`
`154`		`- # predict(m, t1)`
	`149`	`+ #' library(e1071)`
	`150`	`+ #' t <- as.data.frame(Titanic)`
	`151`	`+ #' t1 <- t[t$Freq > 0, -5]`
	`152`	`+ #' m <- naiveBayes(Survived ~ ., data = t1)`
	`153`	`+ #' m`
	`154`	`+ #' predict(m, t1)`
`155`	`155`	`#`
`156`	`156`	`# -- output of 'm'`
`157`	`157`	`#`