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 merupakan bagian dari kursus
Pemrosesan Data yang Dapat Diskalakan di R
Instruksi latihan
- Buat sebuah matriks dari setiap chunk
"mortgage-sample.csv". - Jumlahkan baris untuk semua kolom dari
race_table_chunks.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
# 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]))