Question

当我有一个名为＆＃34; Historical_Stock_Prices_R＆＃34;的数据帧时像这样

Date1       MSFT    AAPL    GOOGL
25-01-05    21.03   4.87    88.56
26-01-05    21.02   4.89    94.62
27-01-05    21.10   4.91    94.04
28-01-05    21.16   5.00    95.17

我使用以下公式从每日价格数据文件中获取每月最大和月度平均日志返回值

return<- cbind.data.frame(date=Historical_Stock_Prices_R$Date1[2:nrow(Historical_Stock_Prices_R)],apply(Historical_Stock_Prices_R[,2:4],2,function(x) log(x[-1]/x[-length(x)])*100))

    return$Date <- as.Date(return$date,format="%d-%m-%y")


    RMax <- aggregate(return[,-1],
                      by=list(Month=format(return$Date,"%y-%m")),
                      FUN=max)

    RMean <- aggregate(return[,-1],
                      by=list(Month=format(return$Date,"%y-%m")),
                      FUN=mean)

但是现在我有一个名为＆＃34; df＆＃34;的矩阵（不是数据帧）。像这样

          AAPL.High    ABT.High   ABBV.High   ACN.High    ADBE.High
07-01-02    NA            NA         NA          NA           NA
03-01-07    12.37        24.74       NA          37          41.32
04-01-07    12.28        25.12       NA         37.23         41
05-01-07    12.31         25         NA         36.99         40.9

现在我如何使用类似的代码计算相同的月平均值和每月最大值？

从矩阵中记录返回计算

0 个答案: