magselect <- function(magnitude) { data(resstar) resstar <- resstar res <- resstar[resstar[, 3] < magnitude,] res <- na.omit(res) return(res) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.