Permalink
Browse files

R File fixes

  • Loading branch information...
1 parent e21fa8a commit ad0700d56bb6d410ae205c20a9ca4999da68a4ed @ChrisRackauckas committed Aug 1, 2013
Showing with 2 additions and 4 deletions.
  1. +2 −4 Hybrid/ensembles.R
View
@@ -69,7 +69,6 @@ if(model.type=="BRT"){
if(model.type=="BMAR"){
library(BMA)
- library(ipred)
## Bayesian Model Averaging Regression
y = dataTrain$y
drops = c("y")
@@ -85,7 +84,6 @@ if(model.type=="BMAR"){
if(model.type=="RFR"){
library(randomForest)
- library(ipred)
## Random Forest
fit = randomForest(y ~0+., data=dataTrain,importance=TRUE, ntree=100)
CVPredictions = predict(fit,dataCV)
@@ -94,10 +92,10 @@ if(model.type=="RFR"){
if(model.type=="CIRF"){
## Conditional Inference Random Forest
- ## Not Working
library(party)
- library(languageR)
fit <- cforest(y ~ 0 + ., data = dataTrain)
+ CVPredictions = predict(fit,dataCV)
+ TestPredictions= predict(fit,dataTest)
}
if(model.type=="GBRT"){

0 comments on commit ad0700d

Please sign in to comment.