X-Git-Url: https://git.nmode.ca/Rnaught/blobdiff_plain/b87620843bcae4fc1cb6a9e9caaf52944e93b7b7..e1c61de5a0e693e2f24a1c4a10336e2a1c4563cb:/R/seqB.R?ds=sidebyside

diff --git a/R/seqB.R b/R/seqB.R
index 09efe07..1dcf927 100644
--- a/R/seqB.R
+++ b/R/seqB.R
@@ -78,9 +78,9 @@
 #'
 #' @export
 seqB <- function(NT, mu, kappa = 20) {
-  if (length(NT) < 2) {
+  if (length(NT) < 2)
     print("Warning: length of NT should be at least two.")
-  } else {
+  else {
     if (min(NT) > 0) {
       times <- 1:length(NT)
       tau <- diff(times)