From 481c3343ac1a4d2f38d5a3ea4d7e0f734d9ed378 Mon Sep 17 00:00:00 2001
From: mgy20 <mgy20@inf.ufpr.br>
Date: Sat, 14 Sep 2024 22:41:56 +0000
Subject: [PATCH] Update README.md

---
 README.md | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 00de1f1..a03149d 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)
 ```
-- 
GitLab