0

I have the following code:

let years = [|1990 .. 2010|]
let rand = System.Random()
let gold = [ for i in years do yield rand.NextDouble()]
let silver = [ for i in gold do yield 2.0 * i + rand.NextDouble()]
let x = Frame.ofColumns["gold"  => Series(years, gold);
                    "silver" => Series(years, silver) ]

I would like to regress gold on "lagged" silver. How can I edit the below code so that I regress gold on lagged silver (silver array shifted back by one)

let myresult = R.lm(formula = "gold~silver", data = (x |> R.as_data_frame)) 
R.summary(myresult)
Tomas Petricek
  • 240,744
  • 19
  • 378
  • 553
İrem Erten
  • 137
  • 1
  • 11

1 Answers1

2

You can use Series.shift 1 to shift the data in a series in a specified direction, so I think you can just construct the frame as follows:

let x = 
  [ "gold"  => Series(years, gold);
    "silver" => (Series(years, silver) |> Series.shift 1) ]
  |> Frame.ofColumns

Also, you do not need the R.as_data_frame call. This happens automatically :-)

let myresult = R.lm(formula = "gold~silver", data = x) 
R.summary(myresult)
Tomas Petricek
  • 240,744
  • 19
  • 378
  • 553