library(foreign) if(!nzchar(Sys.getenv("R_FOREIGN_FULL_TEST"))) q("no") read.dta("http://www.principlesofeconometrics.com/stata/airline.dta") ## no longer exists, Jan 2014 ##str(read.spss("http://psyweb.psy.ox.ac.uk/dapweb/teaching/graduate/data/crime.sav", ## to.data.frame=TRUE)) q()