เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

ความแข็งแกร่งของความสัมพันธ์

กราฟแสดงให้เห็นว่า P/B และ ROE มีความสัมพันธ์เชิงบวกต่อกัน แต่เราอาจต้องการทราบว่าความสัมพันธ์นี้แข็งแกร่งเพียงใดในเชิงปริมาณ ความแข็งแกร่งของความสัมพันธ์ระหว่าง ROE และ P/B สามารถประเมินได้จากค่า R-squared ของการถดถอย ซึ่งเป็นตัวชี้วัดความพอดีของโมเดล ในแบบฝึกหัดนี้ เราจะถดถอย P/B กับ Return on Equity แล้วแสดงผลสรุปของโมเดล

นอกจากนี้ เพื่อนำไปใช้ในแบบฝึกหัดถัดไป ให้เก็บค่า intercept ไว้ใน a และค่า beta ไว้ใน b

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การประเมินมูลค่าหุ้นด้วย R

ดูคอร์ส

คำแนะนำการฝึกหัด

  • เรียกใช้ summary() กับออบเจกต์การถดถอย
  • เก็บค่า intercept ไว้ในตัวแปร a
  • เก็บค่า beta ไว้ในตัวแปร b

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# Regression model 
reg <- lm(p_bv ~ roe, data = cons_disc)

# Regression summary
summary_reg <- ___
summary_reg

# Store intercept
a <- ___
a

# Store beta
b <- ___
b
แก้ไขและรันโค้ด