X <- matrix(sample(c(0:10), size = 80, replace = TRUE),
nrow = 20, ncol = 4,
dimnames = list(paste0("sample", 1:20),
paste0("feat", 1:4)))
result <- process_ms(X, verbose = FALSE) # Generates NA warning
Run the code above in your browser using DataLab