It worked with warning. I added the input you provided washout understanding.
input
or
summary(fit1)
Call:
lm(formula = SOLD ~ FLOOR + DIST, data = CONDO.A)
Residuals:
Min 1Q Median 3Q Max
-9.557e-15 -9.590e-17 5.900e-17 2.657e-16 6.231e-16
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.000e+00 3.088e-16 3.238e+15 <2e-16 ***
FLOOR 1.073e-16 4.851e-17 2.212e+00 0.0292 *
DIST 2.710e-17 2.368e-17 1.144e+00 0.2551
Signif. codes: 0 ‘’ 0.001 ‘’ 0.01 ‘’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 9.77e-16 on 103 degrees of freedom
Multiple R-squared: 0.4999, Adjusted R-squared: 0.4901
F-statistic: 51.47 on 2 and 103 DF, p-value: 3.185e-16
Warning message:
In summary.lm(fit1) : essentially perfect fit: summary may be unreliable
based on all of this
load("CONDO.Rdata")
CONDO.A <- CONDO[CONDO$SOLD=="A",]
CONDO$SOLD=="A"
as.numeric(CONDO$SOLD)
CONDO.A <- CONDO[as.numeric(CONDO$SOLD)==1,]
x1 <- CONDO.A$FLOOR
x2 <- CONDO.A$DIST
x3 <- CONDO.A$VIEW
x4 <- CONDO.A$END
x5 <- CONDO.A$FURNISH
y <- CONDO.A$SOLD
CONDO$SOLD<-as.numeric(CONDO$SOLD)
CONDO.A <- CONDO[CONDO$SOLD==1,]
fit1 <- lm(SOLD~FLOOR+DIST,data=CONDO.A)
summary(fit1)
What should be eliminated ? I am trying to understand. All the idea was to select A (auction) and remove fixed priced (f) from SOLD column ...