I am trying to find ORFs in a file of fasta sequences. I get the error " Iter Models Start Motif Fold Init UpsNt Term RBS Auto Stop Genes 1 1Error in lenScr[w] <- (lenScr[w[1L] - 1] - lenScr[w[1L] - 2]) * seq_along(w) + : replacement has length zero"

Code should be placed in three backticks as shown below

> S_wt_orfs <- FindGenes(S_wt_fa, showPlot=TRUE, allScores=TRUE)

Iter  Models Start Motif  Fold  Init UpsNt  Term   RBS  Auto  Stop Genes
1          1Error in lenScr[w] <- (lenScr[w[1L] - 1] - lenScr[w[1L] - 2]) * seq_along(w) +  : 
  replacement has length zero"