# Some basic tests to make sure things are running.
#Replace the things that is of the form "__STUFF__" with actual content.
#It might still need the quotes; it might not.
GetHowManyTrees_exercise <- function(ntaxa=10) {
#ape can compute this for us.
result <- "__A FUNCTION FROM APE TO DO THIS__(ntaxa)__"
return(result)
}
GetAlignment_exercise <- function() {
#Let's see where mafft is installed
print(system("which mafft"))
data(woodmouse)
result <- mafft(" __PUT SOMETHING HERE TO ALIGN__" ) #hint, look up one line
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.