anchor.diff:          | CharacterVector(v) ->     wrap <| v.ToArray()
           | ComplexVector(v) ->       wrap <| v.ToArray()
           | IntegerVector(v) ->       wrap <| v.ToArray()
  -        | LogicalVector(v) ->       wrap <| v.ToArray()
  -        | NumericVector(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
  
positive.code:         | Function of RParameter list * HasVarArgs
          | Value
  
      open Microsoft.Win32
  
      let characterDevice = new CharacterDeviceInterceptor()
  
negative.code:         | LogicalVector(v) when at = typeof<bool>           -> retype <| v.Single()
          | NumericVector(v) when at = typeof<double[]>       -> retype <| v.ToArray()
          | 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)
          | _                                                 -> None
  
      let internal convertFromR<'outType> (sexp: SymbolicExpression) : 'outType = 
  