Nothing
webuselist <- list(
auto = "1978 Automobile Data",
auto2 = "1978 Automobile Data",
autornd = "Subset of 1978 Automobile Data",
bplong = "fictional blood pressure data",
bpwide = "fictional blood pressure data",
cancer = "Patient Survival in Drug Trial",
census = "1980 Census data by state",
citytemp = "City Temperature Data",
citytemp4 = "City Temperature Data",
educ99gdp = "Education and GDP",
gnp96 = "U.S. GNP, 1967-2002",
lifeexp = "Life expectancy, 1998",
network1 = "fictional network diagram data",
network1a = "fictional network diagram data",
nlsw88 = "U.S. National Longitudinal Study of Young Women (NLSW, 1988 extract)",
nlswide1 = "U.S. National Longitudinal Study of Young Women (NLSW, 1988 extract)",
pop2000 = "U.S. Census, 2000, extract",
sandstone = "Subsea elevation of Lamont sandstone in an area of Ohio",
sp500 = "S&P 500",
surface = "NOAA Sea Surface Temperature",
tsline1 = "simulated time-series data",
tsline2 = "fictional data on calories consumed",
uslifeexp = "U.S. life expectancy, 1900-1999",
uslifeexp2 = "U.S. life expectancy, 1900-1940",
voter = "1992 presidential voter data",
xtline1 = "fictional data on calories consumed"
)
webuse <- function(data, version = 15, envir = parent.frame()) {
d <- read_dta(paste0("https://www.stata-press.com/data/r",version,"/",data,".dta"))
assign(data, d, envir = envir)
invisible(d)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.