शुरू करेंमुफ़्त में शुरू करें

लॉग-ट्रांसफॉर्म किए गए मौद्रिक आउटपुट का मॉडलिंग

इस अभ्यास में, आप लॉग-ट्रांसफॉर्म किए गए मौद्रिक आउटपुट पर मॉडलिंग का अभ्यास करेंगे, और फिर "लॉग-मनी" प्रेडिक्शंस को वापस मौद्रिक इकाइयों में बदलेंगे। लोड किया गया डेटा विषयों की 2005 की इनकम (Income2005) दर्ज करता है, साथ ही 1981 में विषयों द्वारा दिए गए कई एप्टिट्यूड टेस्ट्स के परिणाम भी:

  • Arith
  • Word
  • Parag
  • Math
  • AFQT (Armed Forces Qualifying Test पर परसेंटाइल)

डेटा पहले से प्रशिक्षण और टेस्ट सेट्स में बाँटा जा चुका है (income_train और income_test, क्रमशः) और प्री-लोडेड है। आप इनपुट्स से log(income) का मॉडल बनाएँगे, और फिर log(income) को वापस income में कन्वर्ट करेंगे।

यह अभ्यास पाठ्यक्रम का हिस्सा है

R में Supervised Learning: Regression

पाठ्यक्रम देखें

अभ्यास निर्देश

  • प्रशिक्षण सेट में इनकम के सार-सांख्यिकी देखने के लिए income_train$Income2005 पर summary() कॉल करें।
  • पाँचों टेस्ट्स को फंक्शन के रूप में लेकर log(Income2005) को व्यक्त करने के लिए एक फॉर्मूला लिखें और उसे वैरिएबल fmla.log में रखें। उसे प्रिंट करें।
  • income_train डेटा पर log(Income2005) का एक लीनियर मॉडल फिट करें: model.log।
  • model.log का उपयोग करके income_test डेटासेट पर इनकम की भविष्यवाणी करें। इसे कॉलम logpred में रखें।
    • logpred का summary() जाँचें और देखें कि इनकी मैग्निट्यूड्स, Income2005 की तुलना में, काफी अलग हैं।
  • प्रेडिक्शंस को "मौद्रिक इकाइयों" में लाने के लिए लॉग ट्रांसफॉर्म को रिवर्स करें: exp(income_test$logpred)।
    • pred.income का summary() जाँचें और देखें कि अब मैग्निट्यूड्स Income2005 की मैग्निट्यूड्स के समान हो गए हैं।
  • टेस्ट सेट पर predicted income बनाम income का स्कैटर प्लॉट बनाने के लिए खाली जगहें भरें।

इंटरैक्टिव व्यावहारिक अभ्यास

इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।

# Examine Income2005 in the training set
___

# Write the formula for log income as a function of the tests and print it
(fmla.log <- ___)

# Fit the linear model
model.log <-  ___

# Make predictions on income_test
income_test$logpred <- ___
summary(income_test$logpred)

# Convert the predictions to monetary units
income_test$pred.income <- ___
summary(income_test$pred.income)

#  Plot predicted income (x axis) vs income
ggplot(___, aes(x = ___, y = ___)) + 
  geom_point() + 
  geom_abline(color = "blue")
कोड संपादित करें और चलाएँ