diff --git a/README.md b/README.md
index 00de1f1130da61a68819e695584c184b7f8e9d03..a03149ddd04ecf2cc3895ae387f70d614e37e675 100644
--- a/README.md
+++ b/README.md
@@ -59,10 +59,12 @@ password <- "monetdb"
 conn <- dbConnect(drv, url, user, password)
 
 # Example query
-group1 <- dbGetQuery(conn, "SELECT count(biblioteca) FROM escola WHERE ano_censo = 2010")
+group1 <- unlist(dbGetQuery(conn, "SELECT num_salas FROM escola WHERE ano_censo = 2010 LIMIT 1000"))
+group2 <- unlist(dbGetQuery(conn, "SELECT num_salas_utilizadas FROM escola WHERE ano_censo = 2010 LIMIT 1000"))
 
-# View the result
-print(group1)
+ks.test(group1, group2)
+#tb <- table(unlist(group1), unlist(group2))
+#fisher.test(tb)
 
 dbDisconnect(conn)
 ```