$*$Code it using R$.*$

$2\mathrm{.}3$ Consider the sample from a database of credit applicants in Table $2\mathrm{.}15.$ Comment on the likelihood that it was sampled randomly, and whether it is likely to be a useful sample.

TABLE $2\mathrm{.}15$ SAMPLE FROM A DATABASE OF CREDIT APPLICATIONS

OBS CHECK DURATION HISTORY NEW USED FURNITURE RADIO EDUC RETRAIN AMOUNT SAVE RESPONSE

$\backslash$table$[[$ACCT$,$CAR,CAR,TV$,,,,,,],[1,0,6,4,0,0,0,1,0,0,1169,4,1],[8,1,36,2,0,1,0,0,0,0,6948,0,1],[16,0,24,2,0,0,0,1,0,0,1282,1,0],[24,1,12,4,0,1,0,0,0,0,1804,1,1],[32,0,24,2,0,0,1,0,0,0,4020,0,1],[40,1,9,2,0,0,0,1,0,0,458,0,1],[48,0,6,2,0,1,0,0,0,0,1352,2,1],[56,3,6,1,1,0,0,0,0,0,783,4,1],[64,1,48,0,0,0,0,0,0,1,14421,0,0],[72,3,7,4,0,0,0,1,0,0,730,4,1],[80,1,30,2,0,0,1,0,0,0,3832,0,1],[88,1,36,2,0,0,0,0,1,0,12612,1,0],[96,1,54,0,0,0,0,0,0,1,15945,0,0],[104,1,9,4,0,0,1,0,0,0,1919,0,1],[112,2,15,2,0,0,0,0,1,0,392,0,1]]$