# get the position in the data
Position_Var <- function(varName, data=QTP_ATM){
po <- which(colnames(data)==varName)
return(po)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.