x <- ata(GenIns)
## Print ata factors rounded to 3 decimal places, the summary.ata default
print(x)
## Round to 4 decimal places and print cells corresponding
## to future observations as blanks.
print(summary(x, digits=4), na.print="")
Run the code above in your browser using DataLab