R/solutions.R

Defines functions GetAlignment_solution GetHowManyTrees_solution

# Some basic tests to make sure things are running. 

GetHowManyTrees_solution <- function(ntaxa=10) {
	#ape can compute this for us.
	result <- howmanytrees(ntaxa)
	return(result)	
}

GetAlignment_solution <- function() {
	#Let's see where mafft is installed
	print(system("which mafft"))
	data(woodmouse)
	result <- mafft(woodmouse)
	return(result)
}
PhyloMeth/getting-started-kemendle documentation built on May 9, 2017, 6:43 p.m.