Skip to content
Snippets Groups Projects
Commit 481c3343 authored by mgy20's avatar mgy20
Browse files

Update README.md

parent 04f50c05
Branches
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 5 additions and 3 deletions
README.md
+ 5
− 3
View file @ 481c3343
...@@ -59,10 +59,12 @@ password <- "monetdb" ...@@ -59,10 +59,12 @@ password <- "monetdb"
conn <- dbConnect(drv, url, user, password) conn <- dbConnect(drv, url, user, password)
# Example query # 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 ks.test(group1, group2)
print(group1) #tb <- table(unlist(group1), unlist(group2))
#fisher.test(tb)
dbDisconnect(conn) dbDisconnect(conn)
``` ```
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment