Type Double In R