Get the number of significand digits of a floating point number using the character presentation of those numbers of R

We assume that trailing zeros left of the decimal point are significant digits while trailing zeros right of the decimal point are not significant digits

num.sig.digits(x)

Arguments

x	a numeric vector