May
16th
Sun
16th
get.quotes.R
get.quotes <- function(symbol) {
url <- paste("http://k-db.com/site/jikeiretsu.aspx?download=csv&c=", symbol, sep="")
read.csv(url, skip=1)
};