Obecné pokyny:
Načteme balíky a nahrajeme data
require(hmkzLAPV) require(data.table) dta = get_lapv_data("AMERIKA")
head(dta)
mdta = dta[, .(obs_P = mean(obs_P), sim_P = mean(sim_P)), by = month(DTM)] mdta[, diff_P := sim_P/obs_P] knitr::kable(mdta)
ydta = mon2yr(dta) ydta[, { plot(DTM, obs_P, type = 'l') lines(DTM, sim_P, col = 'red') }]
correct
z balíku hmkzLAPVhurst
)Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.