Testowanie na danych spoza próby
Twoim celem jest przewidzenie decyzji zakupowych dla nowych sklepów na podstawie wyestymowanego modelu. Sprawdź, czy cel jest osiągalny, używając funkcji predict(). Funkcja predict() pobiera oszacowania parametrów z train.model, aby przewidzieć wartości zmiennej odpowiedzi w test.data. Aby uzyskać przewidywane wartości na skali zmiennej odpowiedzi (czyli przewidywane prawdopodobieństwa zakupu), ustaw dodatkowy argument type na "response".
Następnie przewidywania na zbiorze testowym są klasyfikowane jako zakupy lub brak zakupów za pomocą funkcji ifelse() i porównywane z zaobserwowanymi zakupami przy użyciu funkcji table(). Na koniec użyj funkcji prop.table(), aby przekształcić liczby w tabeli na wartości względne.
To ćwiczenie jest częścią kursu
Budowanie modeli reakcji w R
Instrukcje do ćwiczenia
- Przewidź odpowiedzi dla
test.data, używając funkcjipredict()natrain.model. Ustaw argumenttypena"response"i nazwij wynikprobability. - Zaklasyfikuj przewidywania modelu jako
1, jeśliprobabilityprzekracza0.5, lub jako0w przeciwnym przypadku. Przypisz wynik do obiektupredicted. - Pobierz zaobserwowane zakupy dla
HOPPINESSztest.data. Przypisz je do obiektuobserved. - Sporządź tabelę krzyżową wektorów
observedipredicted, używając funkcjitable()orazprop.table().
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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))