subUndetermined<-function(x){
#cat("in subUndetermined\n")
xp <- x;
idx<-grep("ALL_",xp);
xp[idx]<-"UNDETERMINED";
xp<-gsub("_"," ",xp,fixed=TRUE);
return(xp);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.