Closed michbur closed 7 years ago
binarize:
ngram_matrix <- as.matrix(ngram_matrix) ngram_matrix <- ngram_matrix > 0 storage.mode(ngram_matrix) <- "integer"
list2matrix
seqs_m <- tolower(t(sapply(seqs_list, function(i) c(i, rep(NA, max(lengths(seqs_list)) - length(i))))))
add some examples to binarize connecting it to test_features
binarize:
ngram_matrix <- as.matrix(ngram_matrix) ngram_matrix <- ngram_matrix > 0 storage.mode(ngram_matrix) <- "integer"
list2matrix
seqs_m <- tolower(t(sapply(seqs_list, function(i) c(i, rep(NA, max(lengths(seqs_list)) - length(i))))))