# [R] Coefficient of Partial Determination

AbouEl-Makarim Aboueissa abouelmakarim1962 at gmail.com
Wed Mar 1 18:57:23 CET 2017

```Dear All:

Can the *Coefficient of Partial Determination* in multiple linear
regression be computed in R? If so, could you please let me know how?

fullmodel <- lm(Price ~ Size + Lotsize + Bedrooms + Bathrooms)

*I found this in the internet, but I could find the package "rms"*

*library(rms)  # will also load Hmisc*

*fit <- ols(y ~ x1 + x2, data=bf.dat) *

*plt <- plot(anova(fit), what='partial R2')*

*plt*

Here is part of the data as an example:
---------------------------------------------------

Taxes Bedrooms Bathrooms   Price Size Lotsize
296        3         3  795000 2371    5850
242        4         3  399000 2818    4000
242        4         3  545000 3032    3060
222        4         4  909000 3540    6650
222        3         1  109900 1249    6360
222        3         3  324900 1800    4160
311        4         2  192900 1603    3880
311        3         2  215000 1450    4160
311        4         3  999000 3360    4800
311        3         2  319000 1323    5500
311        3         2  350000 1750    7200
311        3         2  249000 1400    3000
311        2         2  299000 1257    1700
307        3         2  235900 1400    2880
307        3         2  348000 1600    3600
307        4         3  314000 1794    3185
307        4         2  399000 1850    3300
307        3         3  599000 2950    5200
307        3         2  299000 1719    3450
307        3         3  425000 1472    3986
307        4         3 1100000 4168    4785
307        3         3 1500000 3880    4510
307        2         1  110000 1000    4000
307        3         2  200000 1139    3934
307        3         1  134900 1080    4960
307        4         3  250000 2000    3000
307        3         4  950000 1920    3800
307        4         2  239950 1348    4960
307        3         2  170000 1280    3000
307        3         2  285000 2400    4500
307        3         3  279000 1700    3500
307        3         2  219000 1600    3500
307        3         2  155000 1050    4000
307        3         2  389000 1415    4500
307        3         1  340000 1110    6360
279        2         1   95000  797    4500
279        2         2  140000 1100    4032
279        3         3 1100000 2602    5170
279        4         3  360000 2351    5400
252        3         3  415000 1350    3150
252        4         2  250000 1206    3745
233        3         3  559000 2628    4520
233        3         3  525000 2365    4640
233        3         3  779000 2990    8580
233        3         2  595000 1750    2000
233        4         5 1150000 5500    2160
233        3         2  550000 1852    3040
233        3         2  500000 2100    3090
233        4         3  279000 2580    4960
233        4         2  375000 1963    3350
243        3         3  330000 1900    5300
243        3         3  199000 1450    4100
243        2         2  165000 1000    9166
243        4         3 1399000 6500    4040
469        3         2  255000 1218    3630
226        2         2  325000  893    3620

Thank you very much for your help and support

abou
______________________
AbouEl-Makarim Aboueissa, PhD
University of Southern Maine
Department of Mathematics and Statistics

[[alternative HTML version deleted]]

```