Remove unecessary braces

diff --git a/R/seqB.R b/R/seqB.R
index 09efe07450ff8e9471b9add18745cfd156b319fd..1dcf927d4071b5d4505cff56b1aa1931cf3029ef 100644 (file)
--- 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)