data-raw/financials.R

In youngroklee-ml/dmtr: Functions and Data for "Data Mining Techniques"

## code to prepare `financials` dataset goes here

library(dplyr)

financials <- tribble(
  ~company, ~roa, ~roe, ~bis, ~de_ratio, ~turnover,
  "SK증권", 2.43, 11.10, 18.46, 441.67, 0.90,
  "교보증권", 3.09, 9.95, 29.46, 239.43, 0.90,
  "대신증권", 2.22, 6.86, 28.62, 249.36, 0.69,
  "대우증권", 5.76, 23.19, 23.47, 326.09, 1.43,
  "동부증권", 1.60, 5.64, 25.64, 289.98, 1.42,
  "메리츠증권", 3.53, 10.64, 32.25, 210.10, 1.17,
  "미래에셋증권", 4.26, 15.56, 24.40, 309.78, 0.81,
  "부국증권", 3.86, 5.50, 70.74, 41.36, 0.81,
  "브릿지증권", 4.09, 6.44, 64.38, 55.32, 0.32,
  "삼성증권", 2.73, 10.68, 24.41, 309.59, 0.64,
  "서울증권", 2.03, 4.50, 42.53, 135.12, 0.59,
  "신영증권", 1.96, 8.92, 18.48, 441.19, 1.07,
  "신흥증권", 3.25, 7.96, 40.42, 147.41, 1.19,
  "우리투자증권", 2.01, 10.28, 17.46, 472.78, 1.25,
  "유화증권", 2.28, 3.65, 63.71, 56.96, 0.12,
  "한양증권", 4.51, 7.50, 63.52, 57.44, 0.80,
  "한화증권", 3.29, 12.37, 24.47, 308.63, 0.57,
  "현대증권", 1.73, 7.57, 19.59, 410.45, 1.19
)

usethis::use_data(financials, overwrite = TRUE)