Archivo real state excel

library(readxl)
real_state_excel <- read_excel("C:/Users/Tesoreriapc/Downloads/real_state_excel.xlsx")
head(real_state_excel)
## # A tibble: 6 × 6
##   house_age dist_metro num_stores  lati longi price_house
##       <dbl>      <dbl>      <dbl> <dbl> <dbl>       <dbl>
## 1      32         84.9         10  25.0  122.        37.9
## 2      19.5      307.           9  25.0  122.        42.2
## 3      13.3      562.           5  25.0  122.        47.3
## 4      13.3      562.           5  25.0  122.        54.8
## 5       5        391.           5  25.0  122.        43.1
## 6       7.1     2175.           3  25.0  122.        32.1

Archivo “empresa.sav”

library(haven)
empresas <- read_sav("C:/Users/Tesoreriapc/Downloads/empresas.sav")
head(empresas)
## # A tibble: 6 × 10
##   ID           AGR   MIN   MAN   CEN   CON   SER   BAN SECSER    TC
##   <chr>      <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl> <dbl>
## 1 Bélgica      3.3   0.9  27.6   0.9   8.2  19.1   6.2   26.6   7.2
## 2 Dinamarca    9.2   0.1  21.8   0.6   8.3  14.6   6.5   32.2   7.1
## 3 Francia     10.8   0.8  27.5   0.9   8.9  16.8   6     22.6   5.7
## 4 Alemania O   6.7   1.3  35.8   0.9   7.3  14.4   5     22.3   6.1
## 5 Irlanda     23.2   1    20.7   1.3   7.5  16.8   2.8   20.8   6.1
## 6 Italia      15.9   0.6  27.6   0.5  10    18.1   1.6   20.1   5.7

#Archivo “real_state.csv”

library(readr)
real_state <- read_csv("C:/Users/Tesoreriapc/Downloads/real_state.csv")
## Rows: 414 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (6): house_age, dist_metro, num_stores, lati, longi, price_house
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(real_state)
## # A tibble: 6 × 6
##   house_age dist_metro num_stores  lati longi price_house
##       <dbl>      <dbl>      <dbl> <dbl> <dbl>       <dbl>
## 1      32         84.9         10  25.0  122.        37.9
## 2      19.5      307.           9  25.0  122.        42.2
## 3      13.3      562.           5  25.0  122.        47.3
## 4      13.3      562.           5  25.0  122.        54.8
## 5       5        391.           5  25.0  122.        43.1
## 6       7.1     2175.           3  25.0  122.        32.1

#Archivo pwt91_capital_detail.dta

library(haven)
pwt91_capital_detail <- read_dta("C:/Users/Tesoreriapc/Downloads/pwt91_capital_detail.dta")
head(pwt91_capital_detail)
## # A tibble: 6 × 34
##   countrycode  year Ic_Struc Ic_Mach Ic_TraEq Ic_Other Ip_Struc Ip_Mach Ip_TraEq
##   <chr>       <dbl>    <dbl>   <dbl>    <dbl>    <dbl>    <dbl>   <dbl>    <dbl>
## 1 ABW          1950       NA      NA       NA       NA       NA      NA       NA
## 2 ABW          1951       NA      NA       NA       NA       NA      NA       NA
## 3 ABW          1952       NA      NA       NA       NA       NA      NA       NA
## 4 ABW          1953       NA      NA       NA       NA       NA      NA       NA
## 5 ABW          1954       NA      NA       NA       NA       NA      NA       NA
## 6 ABW          1955       NA      NA       NA       NA       NA      NA       NA
## # ℹ 25 more variables: Ip_Other <dbl>, Nc_Struc <dbl>, Nc_Mach <dbl>,
## #   Nc_TraEq <dbl>, Nc_Other <dbl>, Np_Struc <dbl>, Np_Mach <dbl>,
## #   Np_TraEq <dbl>, Np_Other <dbl>, Dc_Struc <dbl>, Dc_Mach <dbl>,
## #   Dc_TraEq <dbl>, Dc_Other <dbl>, Kc_Struc <dbl>, Kc_Mach <dbl>,
## #   Kc_TraEq <dbl>, Kc_Other <dbl>, Kp_Struc <dbl>, Kp_Mach <dbl>,
## #   Kp_TraEq <dbl>, Kp_Other <dbl>, Ksh_Struc <dbl>, Ksh_Mach <dbl>,
## #   Ksh_TraEq <dbl>, Ksh_Other <dbl>