anchor.diff:          | ComplexVector(v) ->       wrap <| v.ToArray()
           | IntegerVector(v) ->       wrap <| v.ToArray()
           | LogicalVector(v) ->       wrap <| v.ToArray()        
  -        | NumericVector(v) ->       match sexp.GetAttribute("class") with
  +        | NumericVector(v) ->       match v.GetAttribute("class") with
                                       | CharacterVector(cv) when cv.ToArray() = [| "Date" |] 
                                           -> wrap <| [| for n in v -> DateTime.FromOADate(n + RDateOffset) |]
                                       | _ -> wrap <| v.ToArray()        
  
positive.code:     /// Generally you shouldn't use this function - it is mainly for testing.
      let toR (value: obj) = RInteropInternal.toR value |> snd
  
  
  [<AutoOpen>]
  module RDotNetExtensions2 = 
  
negative.code:         | NumericVector(v) when at = typeof<double>         -> retype <| v.Single()        
          | NumericVector(v) when at = typeof<DateTime[]>     -> retype <| [| for n in v -> DateTime.FromOADate(n + RDateOffset) |]
          | NumericVector(v) when at = typeof<DateTime>       -> retype <| DateTime.FromOADate(v.Single() + RDateOffset)
          // Empty vectors in R are represented as null
          | Null() when at = typeof<string[]>                 -> retype <| Array.empty<string>
          | Null() when at = typeof<Complex[]>                -> retype <| Array.empty<Complex>
          | Null() when at = typeof<int[]>                    -> retype <| Array.empty<int>
          | Null() when at = typeof<bool[]>                   -> retype <| Array.empty<bool>
          | Null() when at = typeof<double[]>                 -> retype <| Array.empty<double>
          | Null() when at = typeof<DateTime[]>               -> retype <| Array.empty<DateTime>
  
          | _                                                 -> None
  
      let internal convertFromR<'outType> (sexp: SymbolicExpression) : 'outType = 
  