The RapidMiner community is on read-only mode until further notice. Technical support via cases will continue to work as is. For any urgent licensing related requests from Students/Faculty members, please use the Altair academic forum here.
execute R
![deadestiani](https://us.v-cdn.net/6030995/uploads/defaultavatar/nCCNNSPK1YM69.jpg)
![](https://s3.amazonaws.com/rapidminer.community/vanilla-rank-images/newbie-16x16.png )
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'))
Tagged:
0
Answers
https://docs.rapidminer.com/latest/studio/operators/utility/scripting/execute_r.html
Varun
https://www.varunmandalapu.com/
Be Safe. Follow precautions and Maintain Social Distancing
Could you please share process XML so we can look into the process flow and what exactly is causing this error. Thank you.
Cheers,
Pavithra