C# Online Compiler | .NET Fiddle

<no name> by Anonymous

## Decision tree example ## Install all necessary packages and libraries

library(datasets)

install.packages('caTools") library(caTools)

install.packages("party") library(party)

install.packages("dplyr") library(dplyr)

library(magrittr)

## Read input dataset "readingSkills data("readingSkills") dim(readingSkills)

head(readingSkills)

summary(readingSkills)

## Split dataset into Train and Test data sample data<-sample.split(readingSkills, SplitRatio=0.8) train_data<-subset(readingSkills, sample_data==TRUE) test_data<-subset(readingSkills, sample_data==FALSE)

## Create decision tree model using ctree function

model<-ctree(nativeSpeaker, train_data)

plot(model)

## testing the model, finding out people who are native speakers ## and those who are not predict_model<-Predict(model,test_data)

m_table<-table(test data$nativeSpeaker, predict_model)

m_table

## Checking the accuracy of the model ac_test<-sum(diag(m_table))/sum(m_table) ac_test

print(paste(Accuracy for the test of the model is,ac test))

​x
 
## Decision tree example ## Install all necessary packages and libraries
​
library(datasets)
​
install.packages('caTools") library(caTools)
​
install.packages("party") library(party)
​
install.packages("dplyr") library(dplyr)
​
library(magrittr)
​
## Read input dataset "readingSkills data("readingSkills") dim(readingSkills)
​
head(readingSkills)
​
summary(readingSkills)
​
## Split dataset into Train and Test data sample data<-sample.split(readingSkills, SplitRatio=0.8) train_data<-subset(readingSkills, sample_data==TRUE) test_data<-subset(readingSkills, sample_data==FALSE)
​
## Create decision tree model using ctree function
​
model<-ctree(nativeSpeaker, train_data)
​
plot(model)
​
## testing the model, finding out people who are native speakers ## and those who are not predict_model<-Predict(model,test_data)
​
m_table<-table(test data$nativeSpeaker, predict_model)
​
m_table
​
## Checking the accuracy of the model ac_test<-sum(diag(m_table))/sum(m_table) ac_test
​
print(paste(Accuracy for the test of the model is,ac test))
                    
​

##teamcity[blockOpened name='Tests' timestamp='2025-05-12T21:29:10.596+0000' flowId='1']
##teamcity[testSuiteStarted name='TestClass' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='Successful' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStdOut name='Successful' out='Some output' tc:tags='tc:parseServiceMessagesInside' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='Successful' duration='1000' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='Ignored' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testIgnored name='Ignored' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='Ignored' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='Failed' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFailed name='Failed' message='Some message' details='Details' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='Failed' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='Image' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[publishArtifacts 'c:\LocalResources\Sandbox\af47ff3f-61d6-4257-af04-bd8dc99fee28\TeamCity.png => TestData']
##teamcity[testMetadata testName='Image' type='image' value='TestData/TeamCity.png' name='Team City Logo' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='Image' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='Value' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testMetadata testName='Value' value='1234.56' name='Some Value' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='Value' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='File' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[publishArtifacts 'c:\LocalResources\Sandbox\af47ff3f-61d6-4257-af04-bd8dc99fee28\TeamCity.png => TestData']
##teamcity[testMetadata testName='File' type='artifact' value='TestData/TeamCity.png' name='Team City Logo file' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='File' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testStarted name='Link' captureStandardOutput='false' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testMetadata testName='Link' type='link' value='https://www.jetbrains.com/' name='JetBrains' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testFinished name='Link' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[testSuiteFinished name='TestClass' timestamp='2025-05-12T21:29:10.612+0000' flowId='1']
##teamcity[blockClosed name='Tests' timestamp='2025-05-12T21:29:10.620+0000' flowId='1']

Cached Result
Last Run:	12:29:10 am
Compile:	0.204s
Execute:	0.073s
Memory:	593.17kb
CPU:	0.172s

View IL Code