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 ...