getDesignMat2Fact <- function(designMat, FactorCovariates){
ind <- grep(paste(FactorCovariates,collapse='|'),colnames(designMat))
tmp <- as.data.frame(designMat)
tmp[,ind] <- lapply(tmp[,ind],function(cols,FactorCovariates){cols <- factor(as.character(cols))})
return(tmp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.