Nothing
"create_profile_strings" <-
function(x,y){
## Return the profile strings from x based on groups in y
groups<-levels(y)
z<-rep(0,dim(x)[2])
for(i in 1:length(groups)){
temp<-create_profile(x[y==groups[i],])
dim(temp)<-c(1,20*dim(temp)[2])
row.names(temp)<-groups[i]
z<-rbind(z,temp)
}
result<-z[!(row.names(z)=="z"),]
colnames(result)<-colnames(x)
return(result)
}
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.