[求助]已写好的R语言内如何加入新的函数？

qinth

实在是没有办法 求助各位大大
这本是我一个朋友的东西 他生病了
可是我看了半天也不了解这门语言

需要在写好的代码里面加一个函数 需要怎么加啊！
好像是在一个金融模型里面 添加一个止损函数
可是给的例子是一个数列的 数据库是一个数组的~
例子他都给我了，可是我不会~
求助各位大大~

1. # FOR A GENERAL EXPLANATION OF REQUIREMENTS ON getNewPosList see rsi.R
   
2. 
   
3. # This strategy only trades on certain markets, which is encoded in params$series.
   
4. 
   
5. # The strategy will be long (short) on contract whenever the close is below (above)
   
6. # the lower (upper) Bollinger Band of the close.
   
7. 
   
8. 
   
9. getNewPosList <- function(store, newRowList, params) {
   
10. 
    
11.         if (is.null(store))
    
12.                 store         <- initStore(newRowList,params$series)
    
13.         else
    
14.                 store        <- updateStore(store, newRowList, params$series)
    
15.        
    
16.         pos <- rep(0,length(newRowList))
    
17. 
    
18.         if (store$iter > params$lookback) {
    
19.                 for (i in 1:length(params$series)) {
    
20.                         cl                 <- newRowList[[params$series[i]]]$Close
    
21.                         bbands         <- BBands(store$cl[[i]],n=params$lookback,sd=params$sdParam)
    
22.                         dn                 <- last(bbands$dn)       
    
23.                         up                 <- last(bbands$up)       
    
24.                         #cat("cl",cl,"dn",dn,"up",up,"\n")
    
25.                         if (cl < dn) {
    
26.                                 pos[params$series[i]] <- 1
    
27.                         }
    
28.                         else if (cl > up) {
    
29.                                 pos[params$series[i]] <- -1
    
30.                         }
    
31.                 }
    
32.         }
    
33.         return(list(store=store,pos=pos))
    
34. }
    
35. 
    
36. initClStore  <- function(newRowList,series) {
    
37.         return(lapply(series, function(x) newRowList[[x]]$Close))
    
38. }
    
39. 
    
40. updateClStore <- function(oldClStore, newRowList, series) {
    
41.         return(mapply(function(x,y) rbind(oldClStore[[x]],newRowList[[y]]$Close),
    
42.                                                                                                   1:length(series),series, SIMPLIFY=FALSE))
    
43. }
    
44. 
    
45. initStore <- function(newRowList,series) {
    
46.         return(list(iter=1,cl=initClStore(newRowList,series)))
    
47. }
    
48. 
    
49. updateStore <- function(store, newRowList, series) {
    
50.         store$iter         <- store$iter + 1
    
51.         store$cl        <- updateClStore(store$cl,newRowList,series)
    
52.         return(store)
    
53. }
    

复制代码

这是源代码~
要加进去的代码是这样的

1. run <- function(prices,n,sd,stoploss) { # stoploss is a simple return
   
2.     bbands  <- BBands(prices[,"Open"],n=n,sd=sd)
   
3.     bbands  <- lag(bbands)
   
4.     pos     <- vector(mode="numeric",length=nrow(prices)) # all zeroes
   
5.     for (i in (n+1):nrow(prices)) {
   
6.         if (pos[i-1]==flat) {
   
7.             long    <- ifelse(prices[i,"Open"]<bbands$dn,1,0)
   
8.             short   <- ifelse(prices[i,"Open"]>bbands$up,-1,0)
   
9.             pos[i]  <- long + short
   
10.             if (pos[i] != pos[i-1]) # we just entered a trade
    
11.                 entry <- i # how long we have been in a trade
    
12.         } else if (getTradeReturn(prices,entry,exit=i,isTRUE(pos[i]<0)) > -stoploss) {
    
13.                 pos[i] <- pos[i-1] # stay in trade
    
14.         }
    
15.     }
    
16.     return(pos)
    
17. }

复制代码

redcat

主要是不懂你的经济问题，不知道在什么地方用

wombat

看代码好像是R，不过不知道你要干嘛，没法下手……