Intensive calling for R functions causes crash about rprovider HOT 3 CLOSED

open RDotNet
open RDotNet.NativeLibrary
open RDotNet.Internals

let REngine = REngine.CreateInstance("R_INSTANCE", @"C:\Program Files\R\R-3.0.2\bin\x64\R.dll")
let R (statement:string) = REngine.Evaluate statement
REngine.Initialize()

[<EntryPoint>]
let main argv = 
    let beta = 
        [ for i in 1..1000 do
              let x = R "x <- rnorm(1000)"
              let y = R "y <- rnorm(1000)"
              let m = R "m <- lm(y~x)"
              let beta = (R "m$coefficients[2]").AsNumeric().[0]
              printfn "%f" beta
              yield beta ]

    let meanBeta = beta |> List.average
    0 // return an integer exit code

open RDotNet
open RProvider
open RProvider.``base``
open RProvider.stats

[<EntryPoint>]
let main argv =
    let beta =
        [
            for i in 1..1000 do
                let x = R.rnorm(1000)
                let y = R.rnorm(1000)
                let df = R.data_frame(namedParams [ "y", box y; "x", box x; ])
                let m = R.lm(df)
                let beta = m.AsList().["coefficients"].AsNumeric().[1]
                printfn "%f" beta
                yield beta
        ]
    let meanBeta = beta |> List.average
    0