data(uuk_screen)
# to speed up the example we use only the first 2500 rows
uuk_screen_reduced = uuk_screen[1:2500,]
screen = add_seed(uuk_screen_reduced)
sd_matrix = create_sd_matrix(screen)
quant <- get_sd_quant(0.3, 0.9, sd_matrix)
Run the code above in your browser using DataLab