Nothing
find.col.index<-function(filename, parameter){
index = which(colnames(filename) ==parameter)
num <- c()
if (length(index) >0){
num <- c(num, index)
}
else stop (paste(parameter," is not found",sep=""))
num
}
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.