s=sample(1:nrow(data), 0.80*nrow(data))
train <- data[s,]
test <- data[-s,]
test1 <- test[!colnames(test) %in% "Sale_Price"]
model1 <- lm(Sale_Price~., data = train)
pred1 <- predict(model1,test1)
Error in model.frame.default(Terms, newdata, na.action = na.action, xlev = object$xlevels) : factor Condition2 has new levels PosA >