Double In R Programming