Ignore build files.

.gitignore

@@ -3,6 +3,20 @@ deprecated/
 .DS_Store
 *html
 
+# Compiled objects
+*.o
+*.so
+
+# R specific
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+
+# RcppExports
+RcppExports.cpp
+RcppExports.R
+
 # History files
 .Rhistory
 .Rapp.history

NAMESPACE

@@ -1,6 +1,15 @@
 # Generated by roxygen2: do not edit by hand
 
 export(StatShadedDateRange)
+export(bb)
+export(cite_package)
+export(ema)
+export(macd)
+export(mom)
+export(monte_carlo)
+export(roc)
+export(rsi)
+export(sma)
 export(stat_bollingerbands)
 export(stat_candlestick)
 export(stat_macd)
@@ -10,4 +19,6 @@ export(theme_dereck_dark)
 export(theme_dereck_light)
 import(data.table)
 import(ggplot2)
+importFrom(Rcpp,evalCpp)
 importFrom(ggplot2,'%+replace%')
+useDynLib(dmplot, .registration = TRUE)

R/cpp.R

@@ -91,4 +91,4 @@ rsi <- function(price, n, method = 'e') {
 #' @export
 sma <- function(price, n) {
     .Call('_dmplot_sma', PACKAGE = 'dmplot', price, n)
-}
+}

dev/test-package.R

@@ -0,0 +1,21 @@
+box::use(dmplot[ bb, rsi, macd, monte_carlo ])
+
+# Generate some sample data
+set.seed(123)
+price_data <- cumsum(rnorm(100)) + 100
+
+# Test Bollinger Bands
+bb_result <- bb(price_data, n = 20)
+tail(bb_result)
+
+# Test RSI
+rsi_result <- rsi(price_data, n = 14)
+tail(rsi_result)
+
+# Test MACD
+macd_result <- macd(price_data, s = 12, l = 26, k = 9)
+tail(macd_result)
+
+# Test Monte Carlo simulation
+mc_result <- monte_carlo(seed_price = 100, daily_vol = 0.02, num_sims = 100, num_days = 252)
+str(mc_result)