[Candlesticks-commits] r35 - in pkg: . R

[noreply at r-forge.r-project.org]

Author: wotuzu17
Date: 2019-02-22 19:58:09 +0100 (Fri, 22 Feb 2019)
New Revision: 35

Modified:
   pkg/CHANGES
   pkg/DESCRIPTION
   pkg/R/CSPLongCandle.R
Log:
fixed colnames in CSPLongCandle.R

Modified: pkg/CHANGES
===================================================================
--- pkg/CHANGES	2018-09-06 17:34:30 UTC (rev 34)
+++ pkg/CHANGES	2019-02-22 18:58:09 UTC (rev 35)
@@ -2,3 +2,4 @@
 0.2-5 va 2015-05-25 svn update to trigger build process on R-forge
 0.2-6 va 2018-09-01 lag -> stats::lag to prevent issues with dplyr
 0.2-7 va 2018-09-06 fixed CSPNLong(White|Black)Candles functions
+0.2-8 va 2019-02-22 fixed colnames in CSPLongCandle.R; thank you Sonam for reporting

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2018-09-06 17:34:30 UTC (rev 34)
+++ pkg/DESCRIPTION	2019-02-22 18:58:09 UTC (rev 35)
@@ -1,8 +1,8 @@
 Package: candlesticks
 Type: Package
 Title: Candlestick Pattern Recognition
-Version: 0.2-7
-Date: 2018-09-06
+Version: 0.2-8
+Date: 2019-02-22
 Author: Andreas Voellenklee
 Maintainer: Andreas Voellenklee <wotuzu17 at gmail.com>
 Depends: R (>= 2.13), xts (>= 0.8-2), quantmod (>= 0.3-17), TTR (>= 0.21-0)

Modified: pkg/R/CSPLongCandle.R
===================================================================
--- pkg/R/CSPLongCandle.R	2018-09-06 17:34:30 UTC (rev 34)
+++ pkg/R/CSPLongCandle.R	2019-02-22 18:58:09 UTC (rev 35)
@@ -35,7 +35,7 @@
   ShortWhiteCandle <- reclass( CL[,1] < CLMedian*threshold & Cl(TS) >= Op(TS) , TS)
   ShortBlackCandle <- reclass( CL[,1] < CLMedian*threshold & Op(TS) > Cl(TS ), TS)
   result <- cbind (ShortWhiteCandle, ShortBlackCandle)
-  colnames (result) <- c("LongWhiteCandle", "LongBlackCandle")
+  colnames (result) <- c("ShortWhiteCandle", "ShortBlackCandle")
   xtsAttributes(result) <- list(bars=1)
   return (result)
 }