Skip to content

Instantly share code, notes, and snippets.

Avatar

Michy mick001

View GitHub Profile
View LSTM.R
set.seed(1)
# define some functions
## convert integer to binary
i2b <- function(integer, length=8)
as.numeric(intToBits(integer))[1:length]
## apply
int2bin <- function(integer, length=8)