Procedure

1.    Follow ( https://vlab.amrita.edu/index.php?sub=3&brch=311&sim=1835&cnt=2) to install R in personal computer.
2.    Install the SeqinR package.
3.    To load “SeqinR” R package follow > library("seqinr") 
4.    Follow the command 
              > library("seqinr")
              > leprae <- read.fasta(file = "Q9CD83.fasta")
               > ulcerans <- read.fasta(file = "A0PQ23.fasta")
               > lepraeseq <- leprae[[1]]
               > ulceransseq <- ulcerans[[1]]
                > lepraeseq # Display the contents of the vector "lepraeseq" 

Procedure to work simulator

1.    Follow the code in the command window: 
                   library("seqinr")   # Load seqinr package in R
                  choosebank("swissprot") # Chossingswissprot for the sequence
                    test_query<- query("leprae", "AC=Q9CD83")
                   lepraeseq<- getSequence(test_query$req[[1]])
                  lepraeseq
2.    Click Execute Button for output.