digits in format and formatc in r
format(x, digits = y) #y = no. of significant figure
formatC(x, format = NULL, digits = y)
#format = g #Fixed format unless sci save space
# = f #Fixed format
# = e #Sci format
#y = no. of significant figure (sci)
# = no. of digit after decimal point (fixed)