[Blotter-commits] r490 - pkg/FinancialInstrument/R

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

Author: peter_carl
Date: 2010-12-10 22:18:59 +0100 (Fri, 10 Dec 2010)
New Revision: 490

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
- added skeleton for 'fund' type


Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2010-12-10 18:50:13 UTC (rev 489)
+++ pkg/FinancialInstrument/R/instrument.R	2010-12-10 21:18:59 UTC (rev 490)
@@ -69,6 +69,7 @@
 #' option
 #' currency
 #' instrument
+#' fund
 #' @seealso 
 #' \code{\link{exchange_rate}}
 #' \code{\link{option_series}}
@@ -138,6 +139,11 @@
 }
 
 #' @export
+fund <- function(primary_id , currency=NULL , multiplier=1 , tick_size=.01, identifiers = NULL, ...){
+    fund_temp =  instrument(primary_id = primary_id, currency = currency, multiplier = multiplier, tick_size = tick_size, identifiers = identifiers, ..., type="fund", assign_i=TRUE)
+}
+
+#' @export
 future <- function(primary_id , currency , multiplier , tick_size=NULL, identifiers = NULL, ..., underlying_id=NULL){
     if(is.null(underlying_id)) {
         warning("underlying_id should only be NULL for cash-settled futures")