shuffleLines = function(phenoFileOrig, phenoFile, shuffleVar) {
tab = read.table(phenoFileOrig, head=TRUE)
# print(head(tab, 10))
tab[, shuffleVar] = sample(tab[, shuffleVar])
# print(head(tab, 10))
write.table(tab, phenoFile, quote = FALSE, row.names = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.