#Credit Approval data available at UCI Machine Learning Repository
data(Credit)
#Create training set (take a small subset for demonstration purposes)
Credit <- data.frame(Credit[order(runif(nrow(Credit ))),])[1:100,]
trainingset <- Credit[1:1:floor(0.50*nrow(Credit)),]
#Create test set
testset <- Credit[(floor(0.50*nrow(Credit))+1 ):nrow(Credit),]
#Train Kernel Factory on training data
kFmodel <- kernelFactory(x=trainingset[,names(trainingset)!= "Response"],
y=trainingset$Response, method=random)
#Deploy Kernel Factory to predict response for test data
predictedresponse <- predict(kFmodel, newdata=testset[,names(testset)!= "Response"])
Run the code above in your browser using DataLab