المثال التفاعلي للانحدار الخطي
من MM*Stat Arabisch
ندرس الدخل الصافي الشهري والنفقات الشهرية لعشر أسر :
الأسرة | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
الدخل الصافي - يورو () | 3500 | 5000 | 4300 | 6100 | 1000 | 4800 | 2900 | 2400 | 5600 | 4100 |
نفقات المعيشة - يورو() | 2000 | 3500 | 3100 | 3900 | 900 | 3000 | 2100 | 1900 | 2900 | 2100 |
<Rform name="lmtest"> x data: <input name="x data" type="text" size="25" maxlength="50" value="3500">
y data: <input name="y data" type="text" size="25" maxlength="50" value="2000">
<input type="submit" value=" Submit "> (You may need to reload the iframe below after submitting). </Rform> <R output="display" name="lmtest" convert="-trim" iframe="height:400px;"> if (exists("x data")) x <- as.numeric(x) else x <- 3500 if (exists(" y data")) y <- as.numeric(y) else y <- 2000 x <- seq(1000, 4100) x<-c(3500, 5000, 4300, 6100, 1000, 4800, 2900, 2400, 5600, 4100) y <- c(2000, 3500, 3100, 3900, 900, 3000, 2100, 1900, 2900, 2100) reg <-lm( y ~ x) pdf(rpdf) reg <-lm( y ~ x) plot(x,y,col="blue") abline(reg, col="red") </R>