# NOT RUN {
## ------------------------------------------------
## Method `DataLoader.Seq$length`
## ------------------------------------------------
ds = DataSet.Seq$new(matrix(rnorm(100), 20), 5, 1)
dl = DataLoader.Seq$new(ds, 5)
ds$length()
dl$length()
## ------------------------------------------------
## Method `DataLoader.Seq$has.next`
## ------------------------------------------------
ds = DataSet.Seq$new(matrix(rnorm(100), 20), 5, 1)
dl = DataLoader.Seq$new(ds, 5)
ds$has.next() # TRUE
## ------------------------------------------------
## Method `DataLoader.Seq$feed`
## ------------------------------------------------
modello.init(100, 100, 100, 100)
ds = DataSet.Seq$new(matrix(rnorm(100), 20), 5, 1)
dl = DataLoader.Seq$new(ds, 5)
SEQ = dl$feed(NULL)
print(SEQ)
print(SEQ$X[[1]][[1]]$v)
dl$feed(SEQ)
print(SEQ$X[[1]][[1]]$v)
modello.close()
# }
Run the code above in your browser using DataLab