# NOT RUN {
N <- 125
xyTrain <- data.frame(x1 = rnorm(N),
x2 = rnorm(N),
group = sample(letters[1:5], N, replace=TRUE),
score = sample(100, N, replace = TRUE) # final column is y
)
pfOut <- polyFit(xyTrain, 2)
# 4 new test points
xTest <- data.frame(x1 = rnorm(4),
x2 = rnorm(4),
group = sample(letters[1:5], 4, replace=TRUE))
predict(pfOut, xTest) # returns vector of 4 predictions
data(pef)
# predict wageinc
z <- polyFit(pef[,c(setdiff(1:6,5),5)],2)
predict(z,pef[2000,c(setdiff(1:6,5),5)]) # 56934.39
# predict occ
z <- polyFit(pef[,c(setdiff(1:6,3),3)],2,use='glm')
predict(z,pef[2000,c(setdiff(1:6,3),3)]) # '100', probs 0.43, 0.26,...
# }
Run the code above in your browser using DataLab