# Creating objects to work on:
sq_ami <- sq(c("MIAANYTWIL","TIAALGNIIYRAIE", "NYERTGHLI", "MAYXXXIALN"),
alphabet = "ami_ext")
sq_dna <- sq(c("ATGCAGGA", "GACCGAACGA", "TGACGAGCTTA", "ACTTTAGC"),
alphabet = "dna_bsc")
# Extracting type of sq objects:
sq_type(sq_ami)
sq_type(sq_dna)
# Classes are tightly related to these types:
class(sq_ami)[1]
class(sq_dna)[1]
Run the code above in your browser using DataLab