Nothing
dftest <-
function(y){
out<-summary(ur.df(y, lags=0, type="drift"))
DFStat <- c(slot(out, "teststat")[1,1])
names(DFStat) <- "Dickey-Fuller"
pv <- slot(out, "cval")[1,]
list(tau =DFStat , criticalValues=pv)
}
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.