library(RCurl)
if (Sys.getenv("JAVA_HOME")!="")
Sys.setenv(JAVA_HOME="")
library(rJava)
library(XLConnect)
appURL <- "http://www.rba.gov.au/statistics/tables/xls-hist/1995-1998.xls"
f = CFILE("19951998.xls", mode="wb")
curlPerform(url = appURL, writedata = f@ref, ssl.verifypeer = FALSE)
close(f)
FX19951998 <- readWorksheetFromFile(file = "19952008.xls", sheet = "data",
header = TRUE,
startRow = 11, startCol = 1, endCol = 6,    endRow = 1026)