if (FALSE) {
# create a connection to the data base
con <- dbConnect(
PostgreSQL(),
dbname = "vmdb",
host = "localhost",
user = "vmdb"
)
# load rate observations including
# session data and magnitude observations
data <- load_vmdb_rates(
con,
shower = 'PER',
sl = c(135.5, 145.5),
period = c('2015-08-01', '2015-08-31'),
lim.magn = c(5.3, 6.7),
withMagnitudes = TRUE,
withSessions = TRUE
)
# load magnitude observations including
# session data and magnitude observations
data <- load_vmdb_magnitudes(
con,
shower = 'PER',
sl = c(135.5, 145.5),
period = c('2015-08-01', '2015-08-31'),
lim.magn = c(5.3, 6.7),
withMagnitudes = TRUE,
withSessions = TRUE
)
}
Run the code above in your browser using DataLab