add_id <- function(x) {s <- as.character(substitute(x))
    return(s)}

renameColumns <- function(bigbaldata){
add <- add_id(bigbaldata)
colnames(bigbaldata) <- paste(add, colnames(bigbaldata), sep='')
return (bigbaldata)
}