Hello
I am creating a confidence interval using the following:
a <- (Properties$SQFT)
b <- (Properties$BEDROOMS)
c <- (Properties$BATHS)
d <- (Properties$DAYS)
predict(Model, data.frame(a = 3200, b = 4, c = 3, d = 60), interval = "confidence", level = 0.95)
predict
It is showing me the following error code:
'newdata' had 1 row but variables found have 33 rows
I have been trying for what feels like a million years with no luck. Any help would be appreciated!
Edit:
Properties <- read.table(file = "Properties.txt", header = TRUE)
str(Properties)
Model=lm(Properties$SALe_PRICE~Properties$SQFT+Properties$BEDROOMS+Properties$BATHS+Properties$DAYS)
summary(Model)
a <- (Properties$SQFT)
b <- (Properties$BEDROOMS)
c <- (Properties$BATHS)
d <- (Properties$DAYS)
predict(Model, data.frame(a = 3200, b = 4, c = 3, d = 60), interval = "confidence", level = 0.95)
predict
-> 'newdata' had 1 row but variables found have 33 rows fit lwr upr
1 656.9205 597.3529 716.4881
2 544.9092 490.0353 599.7831
3 461.4711 423.8341 499.1082
4 392.9870 347.9219 438.0522
5 396.0466 351.7443 440.3489
6 439.0816 389.5483 488.6150
7 305.3748 285.2675 325.4821
8 374.3041 339.0357 409.5726
9 464.1598 434.2539 494.0657
10 368.7902 331.8679 405.7125
11 324.4370 305.1009 343.7732
12 332.9489 314.1399 351.7578
13 322.5467 305.5254 339.5679
14 319.4154 303.0877 335.7431
15 363.1554 316.8853 409.4254
16 286.7435 258.2170 315.2700
17 299.3378 281.5482 317.1274
18 309.0561 289.2991 328.8130
19 305.6776 288.2160 323.1392
20 345.6935 321.3828 370.0042
21 202.0958 167.1284 237.0631
22 308.3043 286.3011 330.3075
23 297.9260 279.3613 316.4907
24 268.6685 237.6889 299.6482
25 343.7089 321.2000 366.2179
26 300.2452 253.0570 347.4334
27 289.8085 264.0771 315.5399
28 289.3099 263.3379 315.2819
29 273.6605 245.5202 301.8008
30 275.7949 237.0198 314.5701
31 269.3483 219.1184 319.5783
32 189.2632 154.4770 224.0494
33 249.8091 203.2728 296.3455
function (object, ...)
UseMethod("predict")
<bytecode: 0x563d0551d550>
<environment: namespace:stats>