## load library
library("readBrukerFlexData")
## show more details
oldDigits <- options()$digits
options(digits=22)
## a test number
num <- 1/3
num
readBrukerFlexData:::.double2singlePrecision(num)
## reset digits option
options(digits=oldDigits)
Run the code above in your browser using DataLab