set.names <- function(data, pops){
colnames(data) <- c("Pop", "Group", "Loc", ".", "Name", "Family", "F/R", "-",
pops)
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.