require (RJDBC);
drv <- JDBC ("com.ibm.db2.jcc.DB2Driver");
conn <- dbConnect (drv, "jdbc:db2:exp004");

dbListTables (conn);

dbGetQuery (conn, "SELECT COUNT(*) FROM vis_collect");

d <- dbReadTable (conn, "vis_collect");

summary (d);

hist (d$"N_CITES");

dbDisconnect (conn);
dbUnloadDriver (drv);