以下のコードでローリング回帰を行いたいのですが、  
↓のようなエラーがでしまいます。。。。対応方法を教えて頂きたいです。

```

    coefs= rollapplyr(dataset1, size.window, function(x){
    +   coef(lm(y~x1+x2+x3+x4,data=x))}, by.column = FALSE)
    Error in model.frame.default(formula = y ~ x1 + x2 + x3 + x4, data = x,  : 
      'data' must be a data.frame, not a matrix or an array
    
```

```

    #packageのインストールはRstudioの Tools>Install packages から実行
    
    library(PerformanceAnalytics)
    library(xts)
    
    #所定のフォルダ内のCSVファイルを取得
    setwd("パス名")
    x =read.csv("ファイル名.csv")
    
    dataset = data.frame(x)
    
    y = dataset[,"A"]
    x1 = dataset[,"B"]
    x2 = dataset[,"C"]
    x3 = dataset[,"D"]
    x4 = dataset[,"E"]
    
    #ほしいデータのみのDataframeを再構築
    dataset1 = data.frame(A = y,B = x1, C =x2, D = x3, E = x4)
    
    #↓のコードを実行したところエラーが発生。dataset1は正しく組成できていることは確認済
    size.window = 120
    coefs= rollapplyr(dataset1, size.window, function(x){
      coef(lm(y~x1+x2+x3+x4,data=x))}, by.column = FALSE)
    
```
CC BY-SA 3.0
2018-02-16T09:56:40.187
41779
2018-02-16T10:26:27.440
2018-02-16T10:26:27.440
19110
27426
question
r
Rを使ったローリング回帰がうまくワークしません。（PerformanceAnalyticsno）