# download the dataset 'Pupil/Student - teacher ratio and average class' from eurostat
tmp <- getEurostatRCV(kod = "educ_iste")
head(tmp)
# download the dataset 'People killed in road accidents' from eurostat
# and plot a maptable for selected countries
t1 <- getEurostatRCV("tsdtr420")
tmp <- cast(t1, geo ~ time , mean, subset=victim=="KIL_MIO_POP")
tmp2 <- tmp[c(1:10,14:30),1:19]
tmp3 <- tmp2
rownames(tmp3) <- tmp2[,1]
tmp3 <- tmp3[c("UK", "SK", "FR", "PL", "ES", "PT", "LV"),]
matplot(1991:2008,t(tmp3[,-1]), type="o", pch=19, lty=1,
las=1, xlab="", ylab="", yaxt="n")Run the code above in your browser using DataLab