X-Git-Url: https://git.donarmstrong.com/?p=plotprotein.git;a=blobdiff_plain;f=R%2Fplot.clustal.R;h=f97587386356603cce9886f52515b9ffb43c3f83;hp=83c9b94bb5982c5cc6407aee0fbee09e25d01e06;hb=76ec63ec531b033008000c70e57a25a4c5bcb864;hpb=38bdcdf4640d162ed9a4b0fae49a75be260a2610

diff --git a/R/plot.clustal.R b/R/plot.clustal.R
index 83c9b94..f975873 100644
--- a/R/plot.clustal.R
+++ b/R/plot.clustal.R
@@ -169,7 +169,7 @@ plot.clustal <- function(clustal,tree=NULL,refseq=1,refseq.start=1) {
     ## plot the position strings
     position.strings <- seq(refseq.start,by=1,length.out=ncol(clustal))
     if(length(position.strings) < 10) {
-        wanted.position.strings <- postiion.strings %% 2 == 0
+        wanted.position.strings <- position.strings %% 2 == 0
     } else {
         wanted.position.strings <- position.strings %% 5 == 0
     }