inst/CaseStudies/Currency/currency.R

# original code
### data(currency)
datapath <- system.file("data", package="revisit")                              
curr <- read.table(paste0(datapath, "/EXC.ASC"), header = TRUE)
lmout <- lm(Japn.Yen ~ .,data=curr)
print(summary(lmout))
matloff/revisit documentation built on May 4, 2019, 4:23 p.m.