## Not run: data(PROTEIN.fasta)
## Not run: write.fasta(sequences = PROTEIN.fasta, names = names(PROTEIN.fasta),
# file.out = "PROTEIN.fasta")## End(Not run)
## Not run: Validate("username","password")
## Not run: UploadFile("PROTEIN.fasta", filetype="FASTA-0")
## Not run: SubmitJob(application="Muscle-3.8.32u4", file.list=list("PROTEIN.fasta"),
# input.list=list("stdin"), args.list=list(c("arguments", "-phyiout")),
# job.name="MuscleSJAA")## End(Not run)
### Or, one can use one of the wrapper functions. ###
## Not run: Muscle("PROTEIN.fasta", aln.filetype="PHYLIP_INT", job.name="muscleAA")
Run the code above in your browser using DataLab