anchor.diff:              let expr = sprintf "%s::%s" packageName funcName
               eval expr
   
  +    /// Convert a value to a value in R.
  +    /// Generally you shouldn't use this function - it is mainly for testing.
  +    let toR (value: obj) = RInteropInternal.toR value |> snd
  +
   
   [<AutoOpen>]
   module RDotNetExtensions2 = 
  
positive.code: 
      let engine = 
          try
              let engine = REngine.CreateInstance("RProvider")
              do engine.Initialize(null, characterDevice)
              engine
          with
          | e -> raise(Exception("Initialization of R.NET failed", e))
  
      let private mefContainer = 
          lazy
  
negative.code:         | CharacterVector(v) ->     wrap <| v.ToArray()
          | ComplexVector(v) ->       wrap <| v.ToArray()
          | IntegerVector(v) ->       wrap <| v.ToArray()
          | LogicalVector(v) ->       wrap <| v.ToArray()        
          | NumericVector(v) ->       match sexp.GetAttribute("class") with
                                      | CharacterVector(cv) when cv.ToArray() = [| "Date" |] 
                                          -> wrap <| [| for n in v -> DateTime.FromOADate(n + RDateOffset) |]
                                      | _ -> wrap <| v.ToArray()        
          | List(v) ->                wrap <| v
          | Pairlist(pl) ->           wrap <| (pl |> Seq.map (fun sym -> sym.PrintName, sym.AsSymbol().Value))
          | Null() ->                 wrap <| null
  