Testování na nových datech
Tvým cílem je předpovědět nákupy pro nové obchody na základě odhadnutého modelu. Ověříš, jestli je to reálné, pomocí funkce predict(). Ta načte odhadnuté parametry z train.model a použije je k predikci hodnot proměnné odezvy v test.data. Aby předpovědi odpovídaly původní škále proměnné odezvy (tedy odhadnutým pravděpodobnostem nákupu), musíš nastavit doplňkový argument type na "response".
Nakonec klasifikuješ predikce jako nákupy nebo nenákupy pomocí funkce ifelse() a porovnáš je s pozorovanými hodnotami pomocí funkce table(). Pro převod absolutních četností na relativní pak použiješ funkci prop.table().
Toto cvičení je součástí kurzu
Tvorba modelů odezvy v R
Pokyny k cvičení
- Předpověz hodnoty odezvy pro
test.datapomocí funkcepredict()aplikované natrain.model. Nastav argumenttypena"response"a výsledek pojmenujprobability. - Klasifikuj predikce modelu: hodnota
1, pokudprobabilitypřekračuje0.5, jinak0. Výsledek přiřaď do objektupredicted. - Získej pozorované nákupy pro
HOPPINESSztest.dataa přiřaď je do objektuobserved. - Zkříženě porovnej vektory
observedapredictedpomocí funkcítable()aprop.table().
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Predict the purchase probabilities for test.data
probability <- ___(___, ___, type = "response")
# Classify the predictions
predicted <- ___(probability >= ___, ___, ___)
# Obtain the observed purchases from test.data
observed <- test.data$HOPPINESS
# Cross-tabulate observed vs. predicted purchases
___(___(predicted, observed))