Nothing
get.error.df <- function()
{
col2 <- rep(c("ll",12,13,14,15), 2)
col3 <- c(21:30)
return(data.frame(col2, col3, stringsAsFactors=FALSE))
}
df <- cbind(col1, get.error.df(), stringsAsFactors=FALSE)
sum(df, col1)
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.