Membandingkan Ras/Etnis Peminjam dan Proporsinya
Dalam latihan ini, Anda akan membandingkan proporsi ras dan etnis AS dengan proporsi total peminjam berdasarkan ras atau etnis. Ini akan menjadi pemeriksaan awal untuk melihat apakah setiap kelompok meminjam pada tingkat yang sebanding dengan representasinya di Amerika Serikat. Tugas ini mirip dengan latihan sebelumnya, tetapi kali ini Anda akan menggunakan iotools untuk menyelesaikannya.
Latihan ini adalah bagian dari kursus
Pemrosesan Data yang Dapat Diskalakan di R
Petunjuk latihan
- Buat sebuah matriks dari setiap chunk
"mortgage-sample.csv". - Jumlahkan baris untuk semua kolom dari
race_table_chunks.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Create table of the borrower_race
race_table_chunks <- ___(
"mortgage-sample.csv", function(chunk) {
x <- ___(chunk, sep = ",", type = "integer")
colnames(x) <- mort_names
table(x[, "borrower_race"])
}, CH.MAX.SIZE = 1e5)
# Add up the columns
race_table <- ___(race_table_chunks)
# Find the proportion
borrower_proportion <- race_table[1:7] / sum(race_table[1:7])
# Create the matrix
matrix(c(pop_proportion, borrower_proportion), byrow = TRUE, nrow = 2,
dimnames = list(c("Population Proportion", "Borrower Proportion"), race_cat[1:7]))