# Przykład 6.11
###############

data(cpus)
cpus1<-cpus[-9]
cpus1<-cpus1[-1]
cpus1$perf<-log10(cpus1$perf)

#cpus.tr<-rpart(perf~.,cpus1,maxdepth=4)
cpus.tr<-rpart(perf~.,cpus1)

y<-cpus1$perf

ypred1<-predict(cpus.tr,cpus1)

r2<-1-sum((y-ypred1)^2)/sum((y-mean(y))^2)
r2

u<-y-ypred1

cpus2<-cpus
cpus2$perf<-u
#cpus.tr2<-rpart(perf~.,cpus2,maxdepth=4)
cpus.tr2<-rpart(perf~.,cpus2)

ypred2<-predict(cpus.tr2,cpus2)


ypred<-ypred1+ypred2
r2<-1-sum((y-ypred)^2)/sum((y-mean(y))^2)
r2

##########################################
data(Boston)
bos1<-Boston

#bos.tr<-rpart(medv~.,bos1,maxdepth=3)
bos.tr<-rpart(medv~.,bos1)

y<-bos1$medv

ypred1<-predict(bos.tr,bos1)

r2<-1-sum((y-ypred1)^2)/sum((y-mean(y))^2)
r2

u<-y-ypred1

bos2<-Boston
bos2$medv<-u
#bos.tr2<-rpart(medv~.,bos2,maxdepth=3)
bos.tr2<-rpart(medv~.,bos2)

ypred2<-predict(bos.tr2,bos2)


ypred<-ypred1+ypred2
r2<-1-sum((y-ypred)^2)/sum((y-mean(y))^2)
r2
###########################################
# SVM
cpus.svm<-svm(perf~., cpus1)

y<-cpus1$perf

ypred1<-predict(cpus.svm,cpus1)

r2<-1-sum((y-ypred1)^2)/sum((y-mean(y))^2)
r2

u<-y-ypred1

cpus2<-cpus1
cpus2$perf<-u

cpus.svm2<-svm(perf~.,cpus2)

ypred2<-predict(cpus.svm2,cpus2)


ypred<-ypred1+ypred2
r2<-1-sum((y-ypred)^2)/sum((y-mean(y))^2)
r2

##############################################
# SVM
bos.svm<-svm(medv~.,bos1)

y<-bos1$medv

ypred1<-predict(bos.svm,bos1)

r2<-1-sum((y-ypred1)^2)/sum((y-mean(y))^2)
r2

u<-y-ypred1

bos2<-Boston
bos2$medv<-u

bos.svm2<-svm(medv~.,bos2)

ypred2<-predict(bos.svm2,bos2)


ypred<-ypred1+ypred2
r2<-1-sum((y-ypred)^2)/sum((y-mean(y))^2)
r2