# create results for testing
results <- list()