data-raw/CH505.R

In phraber/pixelgram: Pixel View with Accompanying Phylogram of Sequence Alignment

aas_file <- system.file("extdata", "CH505-gp160.fasta", package="pixelgram")
tre_file <- system.file("extdata", "CH505-gp160.tre", package="pixelgram")

CH505 <- list()
CH505$aas <- seqinr::as.matrix.alignment(seqinr::read.alignment(aas_file, 
	         "fasta"))
CH505$tre <- ape::read.tree(tre_file)
CH505$wpi <- sapply(1:length(CH505$tre$tip.label), function(i)
	         unlist(strsplit(CH505$tre$tip.label[i], '[.]'))[[1]])

devtools::use_data(CH505, overwrite=T)