champ.colname <-
function(beta,pd)
{
c=colnames(beta)
for( i in 1:length(c)){c[i]= pd$Sample_Name[i]}
colnames(beta)=c
return(beta)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.