if (FALSE) {
library(reservoirnet)
node <- reservoirnet::createNode("Reservoir", units = 100,
lr=0.1, sr=0.9,
seed = 1)
X <- list(matrix(runif(100), ncol = 1), matrix(runif(200), ncol = 1)) # Example input sequences
last_states <- last_reservoir_state(node, X)
print(last_states)
}
Run the code above in your browser using DataLab