From d86cd62415d9ecb7afbce8af4a69e7ad37aacafa Mon Sep 17 00:00:00 2001
From: tqchen <tianqi.tchen@gmail.com>
Date: Sat, 23 Aug 2014 19:04:50 -0700
Subject: [PATCH] add acknowledgement

---
 wrapper/R-example/demo.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/wrapper/R-example/demo.R b/wrapper/R-example/demo.R
index 7922b768a..55d323d9e 100644
--- a/wrapper/R-example/demo.R
+++ b/wrapper/R-example/demo.R
@@ -4,6 +4,7 @@ source("../xgboost.R", chdir=TRUE)
 # helper function to read libsvm format
 # this is very badly written, load in dense, and convert to sparse
 # use this only for demo purpose
+# adopted from https://github.com/zygmuntz/r-libsvm-format-read-write/blob/master/f_read.libsvm.r
 read.libsvm <- function(fname, maxcol) {
   content <- readLines(fname)
   nline <- length(content)