🎉Community Raffle - Win $25

An exclusive raffle opportunity for active members like you! Complete your profile, answer questions and get your first accepted badge to enter the raffle.
Join and Win

execute R

User: "deadestiani"
New Altair Community Member
Updated by Jocelyn
i have scripst C5.0 in r, how make execute in rapid miner ?


dataseratus <- read.csv("C:/Desktop/dataseratus.csv")

View(dataseratus)
str(dataseratus)

table(dataseratus$Prediksi)
table(dataseratus$Global_intensity)
table(dataseratus$Voltage)
table(dataseratus$Global_re_aktiv)
table(dataseratus$Global_aktiv)


dataseratus$Prediksi<-as.factor(dataseratus$Prediksi)

summary(dataseratus$Global_re_aktiv)
summary(dataseratus$Voltage)
summary(dataseratus$Global_aktiv)
summary(dataseratus$Global_intensity)



set.seed(1000)
dataseratus_train <-dataseratus[2:9000,]
dataseratus_test <-dataseratus[9001:10002,]
prop.table(table(dataseratus_train$Prediksi))
prop.table(table(dataseratus_test$Prediksi))

View(dataseratus_train)
View(dataseratus_test)

library(C50)

dataseratus_model <- C5.0(dataseratus_train[1:5],dataseratus_train$Prediksi)

dataseratus_model
dataseratus_model$tree
plot(dataseratus_model)
summary(dataseratus_model)
dataseratus_pred<-predict(dataseratus_model,dataseratus_test)
library (gmodels)
CrossTable(dataseratus_test$Prediksi,dataseratus_pred,prop.chisq=FALSE,Prop.r=FALSE,dnn=c('actual prediksi','predicted prediksi'))


Find more posts tagged with