From 257046dc5f101789c38ccfdadfe928ccd9f15d28 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Mon, 23 Jan 2023 11:22:01 +0100
Subject: [PATCH] Fixed synxtax of zeallot call (#3)

---
 R/dec2bitv.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/dec2bitv.R b/R/dec2bitv.R
index db680a8..abe5169 100644
--- a/R/dec2bitv.R
+++ b/R/dec2bitv.R
@@ -10,7 +10,7 @@ dec2bitv <- function(d, n) {
   d <- d[]
 
   f <- e <- NA
-  c(f, e) <- matlab2r::log2(max(d)) # How many digits do we need to represent the numbers?
-    bits <- floor(d * 2 ^ (seq(1 - max(n, e), 0))) %% 2
+  c(f, e) %<-% matlab2r::log2(max(d)) # How many digits do we need to represent the numbers?
+  bits <- floor(d * 2 ^ (seq(1 - max(n, e), 0))) %% 2
   return(bits)
 }