library(LSTMfactors)
set.seed(123)
##Take the data.DAPCS dataset as an example.
data(data.DAPCS)
response <- as.matrix(data.DAPCS[, 3:22]) ## loading data
# \donttest{
## Run extractor.feature function
features <- extractor.feature(response)
print(features)
# }
Run the code above in your browser using DataLab