0

我有以下代码:

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) ]

我想在“落后”的白银上回归黄金。如何编辑下面的代码,以便我在滞后的银上回归黄金(银阵列向后移动一)

let myresult = R.lm(formula = "gold~silver", data = (x |> R.as_data_frame)) 
R.summary(myresult)
4

1 回答 1

2

您可以使用Series.shift 1以指定方向移动一系列数据,因此我认为您可以按如下方式构建框架:

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

此外,您不需要R.as_data_frame调用。这会自动发生:-)

let myresult = R.lm(formula = "gold~silver", data = x) 
R.summary(myresult)
于 2015-04-30T23:29:06.993 回答