data(UShurricane)
# Compress the table to thousands of dollars
USh.k <- compressELT(ELT(UShurricane), digits = -3)
summary(USh.k)
# Compress the table to millions of dollars
USh.m <- compressELT(ELT(UShurricane), digits = -6)
summary(USh.m)
Run the code above in your browser using DataLab