1

edit最初に見る

親関数と子関数があります。...子関数で機能を使用したいと思います。...具体的には、子関数のこれらの特定のコード行でどのように正しく使用できるか疑問に思っています:

function(theList,...){

  ####
  CombinedList=lapply(seq_along(theList), function (x,...) {

    .x <-  as.list(substitute(list(...)))[-1]

    elementz=data.frame(rbind(.x[1][[x]],.x[2][[x]],.x[3][[x]]))

は...リストのリストであると想定されています。つまり、リストの各要素は...リストです。以下のメイン (マスター) 関数では、 に...と が含まれSharpListますSortinoList。

windowSize=36

    PerformanceDF  <- function(data,windowSize,AvgForvalt=(0.02/12)){
      require(quantmod,quietly = TRUE)
      require(reshape2,quietly = TRUE)
      require(PerformanceAnalytics,quietly = TRUE)
      require(xts,quietly = TRUE)

      #36 mån rolling window list

      windows <- embed(1:nrow(data), windowSize)

      lapplyApproach <- function(data, windows) {  
        windowsList <- split(t(windows), rep(1:nrow(windows), each=ncol(windows)))  
        names(windowsList) <- unlist(lapply(windowsList,
                                            function(x) data[x[1],1]))
        return(lapply(windowsList,function(x) data[rev(x),]))
      }


      DropBench=grep("Benchmark",names(hedgesample),ignore.case=TRUE)
      data=data[,-c(DropBench)]

      theList=lapplyApproach(data,windows) 


      ##xts

      theListXts=lapply(theList,function(x){

        blab=xts(x[,-1],as.Date(x[,1])) 

        return(blab)

      })



      ##Sharpe Ratio     
      SharpList=lapply(theListXts,function(x) {

        hej=SharpeRatio(x,FUN="StdDev")

        rownames(hej)=NULL

        hej[is.infinite(hej)] <- 0

        return(hej)

      })

      ##Sortino ratio

      SortinoList=lapply(theListXts,function(x) {

        mmm=SortinoRatio(x)

        rownames(mmm)=NULL

        mmm[is.infinite(mmm)]<-0

        return(mmm)

      })




      function(theList,...){




      ####
      CombinedList=lapply(seq_along(theList), function (x,...) {

        .x <-  as.list(substitute(list(...)))[-1]

        elementz=data.frame(rbind(.x[1][[x]],.x[2][[x]],.x[3][[x]]))

        rownames(elementz)=NULL

        elementz$Statistic=.x

        return(elementz)


      },...)

      names(CombinedList)=names(theList)

      return(CombinedList)}}

今、私はerror

Error in .x[1][[x]] : subscript out of bounds
In addition: Warning messages:
1: In rbind(.x[1][[x]], .x[2][[x]]) :
  (symbol) object cannot be coerced to type 'list'
2: In rbind(.x[1][[x]], .x[2][[x]]) :
  (symbol) object cannot be coerced to type 'list'
3: In rbind(.x[1][[x]], .x[2][[x]]) :
  (symbol) object cannot be coerced to type 'list'

よろしくお願いします！

EDIT

解決策を見つけました：

function(theList,...){

  CombinedList=lapply(seq_along(theList), function (x,...) {

    .x <-  as.list(substitute(list(...)))[-1]

    elementz=data.frame(rbind(eval(.x[[1]])[[x]],eval(.x[[2]])[[x]],eval(.x[[3]])[[x]]))

しかし、誰かがより良い解決策を持っていますか?

4

1 に答える 1