pdf("C:\\Rmisc\\graphs\\treasure.pdf") treasure <- read.fwf("C:\\data\\treas1700.dat", width=c(4,11,11,4), col.names=c("year","situados","minted","amerrev")) attach(treasure) situados <- situados/1000000 minted <- minted/1000000 library(MASS) boxcox(situados ~ minted + amerrev) dev.off()