add changeDataType function to Rtools.R