The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.
The goal of {ihpdr} is to fetch data from the International House Price Database, compiled by the Federal Reserve Bank of Dallas.
You can install the released version of {ihpdr} from CRAN with:
install.packages("ihpdr")Or install the development version from GitHub with:
# install.packages("devtools")
devtools::install_github("kvasilopoulos/ihpdr")This is a basic example which shows you how to download the data:
# Raw Data
ihpdr::ihpd_get()
#> # A tibble: 4,320 x 6
#> Date country hpi rhpi pdi rpdi
#> <date> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 1975-01-01 Australia 7.60 39.1 14.1 72.2
#> 2 1975-04-01 Australia 7.74 38.5 14.4 71.4
#> 3 1975-07-01 Australia 8.04 38.6 14.7 70.6
#> 4 1975-10-01 Australia 8.29 37.7 15.2 69.6
#> 5 1976-01-01 Australia 8.58 37.9 15.5 69.2
#> 6 1976-04-01 Australia 8.83 38.1 15.9 69.5
#> 7 1976-07-01 Australia 9.07 38.3 17.1 71.2
#> 8 1976-10-01 Australia 9.25 37.9 17.4 71.1
#> 9 1977-01-01 Australia 9.48 37.9 17.7 70.7
#> 10 1977-04-01 Australia 9.66 37.7 18.0 70.2
#> # ... with 4,310 more rows
# Exuberance Indicators ~ bsadf
ihpdr::ihpd_get("bsadf")
#> # A tibble: 16,560 x 6
#> Date country type lag value crit
#> <date> <chr> <chr> <dbl> <dbl> <dbl>
#> 1 1975-01-01 Australia rhpi 1 NA NA
#> 2 1975-04-01 Australia rhpi 1 NA NA
#> 3 1975-07-01 Australia rhpi 1 NA NA
#> 4 1975-10-01 Australia rhpi 1 NA NA
#> 5 1976-01-01 Australia rhpi 1 NA NA
#> 6 1976-04-01 Australia rhpi 1 NA NA
#> 7 1976-07-01 Australia rhpi 1 NA NA
#> 8 1976-10-01 Australia rhpi 1 NA NA
#> 9 1977-01-01 Australia rhpi 1 NA NA
#> 10 1977-04-01 Australia rhpi 1 NA NA
#> # ... with 16,550 more rows
# Get the release dates
ihpdr::ihpd_release_dates()
#> Last Quarter Included Data Release Date
#> 2 First quarter 2019 July 8–12, 2019
#> 3 Second quarter 2019 October 7–11, 2019
#> 4 Third quarter 2019 January 6–10, 2020
#> 5 Fourth quarter 2019 April 6–10, 2020library(tidyverse)raw_data <- ihpdr::ihpd_get()
ggplot(raw_data, aes(Date, rhpi)) +
geom_line(size = 0.7) +
scale_x_date(date_labels = "%y") +
facet_wrap(~country, ncol = 4) 
bsadf_data <- ihpdr::ihpd_get("bsadf")
bsadf_data %>%
dplyr::filter(type == "rhpi", lag == 1) %>%
ggplot() +
geom_line(aes(Date, value), size = 0.7) +
geom_line(aes(Date, crit), col = "red", size = 0.7) +
scale_x_date(date_labels = "%y") +
facet_wrap(~country, ncol = 4) +
theme_bw()
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.