url <- "http://www.google.com/fusiontables/api/query?sql=SELECT+*+FROM+3166152"
trainData <- read.csv(url, stringsAsFactors=TRUE, check.names=FALSE)
head(trainData)
       Bahnhof Zugeinfahrten verspätet Quote Verspätung Schnitt rel. Schnitt abs. Land      lat      lon
1 Roma Termini           299        69 0.231       1980        28.70         6.62   IT 41.90032 12.50116
2  Roskilde st           498        81 0.163       3290        40.62         6.61   DK 55.64046 12.09092
3    Paris Est          3287       759 0.231      21405        28.20         6.51   FR 44.91824  1.92274
4  Ringsted st           225        41 0.182       1445        35.24         6.42   DK 55.44587 11.78762
5  Knittelfeld           149        12 0.081        850        70.83         5.70   AT 47.21395 14.82919
6    Odense st           723        95 0.131       4100        43.16         5.67   DK 55.39617 10.39079