diabetes <- read.csv(file="diabetes.csv", head=TRUE, sep=",")
iris <- read.csv(file="iris.csv", head=TRUE, sep=",")
str(iris)
str(diabetes)
diabetes[,1:8]
diabetes_ctree <- ctree(diabetes[,1:8], data=iris)
install.package("partykit")
install.packages("partykit")
diabetes_ctree <- ctree(diabetes[,1:8], data=iris)
str(diabetes)
str(diabetes)[,1]
aaa = str(diabetes)
aaa[,1]
aaa[1,0]
aaa
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure + skin.thickness + insulin + mass.index + pedigree.func + age, data=iris)
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure, data=iris)
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure, data=diabetes)
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure, data=ddiabetes)
library("party")
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure, data=ddiabetes)
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure, data=diabetes)
diabetes_ctree <- ctree(class ~ pregnant.times + glucose.concentr +  blood.pressure + skin.thickness + insulin + mass.index + pedigree.func + age, data=diabetes)
print(diabetes_ctree)
plot(diabetes_ctree)