# NOT RUN {
# Create the smart look-up table
library(RSQLite)
stcon <- create_smartTable()
# Runs the analysis on random fields
system.time(
toyRes1 <- analyse_randomKde2d_smart(300, 200, 100, 100, smartTableDB=stcon)) # slow
system.time(
toyRes2 <- analyse_randomKde2d_smart(300, 200, 100, 100, smartTableDB=stcon)) # quick
# Clean the environment
rm(list=c("toyRes1", "toyRes2"))
dbDisconnect(stcon)
# }
Run the code above in your browser using DataLab