data(kaksTorture)
kaks.torture <- read.alignment(file = system.file("sequences/kaks-torture.fasta",
package = "seqinr"), format = "fasta")
#
# Failed on windows :
#
# stopifnot(identical(kaksTorture, kaks(kaks.torture)))
# stopifnot(identical(kaksTorture, kaks(kaks.torture, rmgap = FALSE)))
Run the code above in your browser using DataLab