[Seqinr-commits] r1718 - pkg/man

[noreply at r-forge.r-project.org]

Author: lobry
Date: 2009-11-18 20:49:10 +0100 (Wed, 18 Nov 2009)
New Revision: 1718

Modified:
   pkg/man/write.fasta.Rd
Log:
plural

Modified: pkg/man/write.fasta.Rd
===================================================================
--- pkg/man/write.fasta.Rd	2009-11-18 19:41:45 UTC (rev 1717)
+++ pkg/man/write.fasta.Rd	2009-11-18 19:49:10 UTC (rev 1718)
@@ -25,17 +25,17 @@
 \author{ A. Necsulea }
 \seealso{ \code{\link{read.fasta}} }
 \examples{
-## Read sequences from a FASTA file:
+## Read 3 sequences from a FASTA file:
 ortho <- read.fasta(file = system.file("sequences/ortho.fasta", package =
 "seqinr"))
 
 ## Select only third codon positions:
 ortho3 <- lapply(ortho, function(x) x[seq(from = 3, to = length(x), by = 3)])
 
-## Write the modified sequences to a file:
+## Write the 3 modified sequences to a file:
 write.fasta(sequences = ortho3, names = names(ortho3), nbchar = 80, file.out = "ortho3.fasta")
 
-## Read it again from the same file and check that sequences are preserved:
+## Read them again from the same file and check that sequences are preserved:
 ortho3bis <- read.fasta("ortho3.fasta", set.attributes = FALSE)
 stopifnot(identical(ortho3bis, ortho3))
 }