내용

글번호 677
작성자 heojk
작성일 2017-06-02 17:35:45
제목 케글 컴피시션 - 벤츠... 시작 코드
내용
rm(list=ls())
train <- read.csv("Data/Mercedes-Benz/train.csv", header=TRUE)
test <- read.csv("Data/Mercedes-Benz/test.csv", header=TRUE)

#levels(train$X0) <- sort(c(levels(train$X0), c("ae", "ag", "an", "av", "bb", "p")))
#, "u", "v", "w", "x", "y", "z"
#levels(train$X0)
#levels(test$X0)

train1 <- train[, 2:ncol(train)]
#levels(train1$X0)
m <- lm(y~., data=train1)
m$xlevels[["X0"> <- union(m$xlevels[["X0">, levels(test$X0))
m$xlevels[["X2"> <- union(m$xlevels[["X2">, levels(test$X2))
m$xlevels[["X5"> <- union(m$xlevels[["X5">, levels(test$X5))


p <- predict(m, newdata=test[,2:ncol(test)], interval="prediction" )
result <- data.frame(ID=test[,"ID"], y=p[, "fit"])

write.csv(result, "result.csv", row.names=FALSE)