Fixed synxtax of zeallot call (#3)

This commit is contained in:
Waldir Leoncio 2023-01-23 11:22:01 +01:00
parent 8ce9f3af04
commit 257046dc5f

View file

@ -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)
}