library("FFTrees")
FFTrees.guide() # Run the package guide
titanic.fft <- FFTrees(formula = survived ~., data = titanic)
plot(titanic.fft, decision.names = c("Died", "Survived"))
install.packages("FFtre")
library("FFTrees")
FFTrees.guide() # Run the package guide
titanic.fft <- FFTrees(formula = survived ~., data = titanic)
plot(titanic.fft, decision.names = c("Died", "Survived"))
install.packages("FFTrees")
library("FFTrees", lib.loc="/Library/Frameworks/R.framework/Versions/3.2/Resources/library")
FFTrees.guide() # Run t
titanic.fft <- FFTrees(formula = survived ~., data = titanic)
titanic.fft <- FFTrees(formula = survived ~., data = titanic)
plot(titanic.fft, decision.names = c("Died", "Survived"))
Health.fft<-FFTrees(formula = Sick ~ . , data=health1.df)
plot(Health.fft,
main = "Breastcancer FFT",
decision.names = c("Healthy", "Sick"))
breastcancer.fft<-FFTrees(formula = diagnosis ~ . , data=breastcancer)
plot(breastcancer.fft,
main = "Breastcancer FFT",
decision.names = c("Healthy", "Cancer"))
titanic.fft<-FFTrees(formula = survived ~ . , data=titanic)
plot(titanic.fft,
main = "Titanic FFT",
decision.names = c("Survived", "Dead"))
breastcancer.fft<-FFTrees(formula = diagnosis ~ . , data=breastcancer)
plot(breastcancer.fft,
main = "Breastcancer FFT",
decision.names = c("Healthy", "Cancer"))
breastcancer.fft<-FFTrees(formula = diagnosis ~ . , data=breastcancer)
plot(breastcancer.fft,
main = "Breastcancer FFT",
decision.names = c("Healthy", "Cancer"))
co2s<-c(1:691)
for(i in 7:697)
co2s[i-6]<-(CO2[i-6]/2+CO2[i-5]+CO2[i-4]+CO2[i-3]+CO2[i-2]+CO2[i-1]+CO2[i]+CO2[i+1]+CO2[i+2]+CO2[i+3]+CO2[i+4]+CO2[i+5]+CO2[i+6]/2)/12
Zeit1<-Zeit[-1:-6]
Zeit1<-Zeit1[-692:-697]
plot(Zeit, CO2, pch=".")
lines(Zeit1,co2s)
attach(MaunaLoa.df)
co2s<-c(1:691)
for(i in 7:697)
co2s[i-6]<-(CO2[i-6]/2+CO2[i-5]+CO2[i-4]+CO2[i-3]+CO2[i-2]+CO2[i-1]+CO2[i]+CO2[i+1]+CO2[i+2]+CO2[i+3]+CO2[i+4]+CO2[i+5]+CO2[i+6]/2)/12
Zeit1<-Zeit[-1:-6]
Zeit1<-Zeit1[-692:-697]
plot(Zeit, CO2, pch=".")
lines(Zeit1,co2s)
CO2<-CO2[-1:-6]
CO2<-CO2[-692:-697]
Residuen<-CO2-co2s
plot(Zeit1,Residuen)
CO2<-CO2[-1:-6]
CO2<-CO2[-692:-697]
Residuen<-CO2-co2s
plot(Zeit1,Residuen, pch=".")
CO2<-CO2[-1:-6]
CO2<-CO2[-692:-697]
Residuen<-CO2-co2s
plot(Zeit1,Residuen, pch=".")
cos2s
co2s
CO2
MaunaLoa.df<-read.table("/Users/Joachim/Desktop/SpringerBuch2Auflage/SecondEdition/BegleitCD/Txt/Kap2/MaunaLoa1958-2017.txt",header=T)
attach(MaunaLoa.df)
co2s<-c(1:691)
for(i in 7:697)
co2s[i-6]<-(CO2[i-6]/2+CO2[i-5]+CO2[i-4]+CO2[i-3]+CO2[i-2]+CO2[i-1]+CO2[i]+CO2[i+1]+CO2[i+2]+CO2[i+3]+CO2[i+4]+CO2[i+5]+CO2[i+6]/2)/12
Zeit1<-Zeit[-1:-6]
Zeit1<-Zeit1[-692:-697]
plot(Zeit, CO2, pch=".")
lines(Zeit1,co2s)
hist(CO2)
co2s<-c(1:691)
for(i in 7:697)
co2s[i-6]<-(CO2[i-6]/2+CO2[i-5]+CO2[i-4]+CO2[i-3]+CO2[i-2]+CO2[i-1]+CO2[i]+CO2[i+1]+CO2[i+2]+CO2[i+3]+CO2[i+4]+CO2[i+5]+CO2[i+6]/2)/12
Zeit1<-Zeit[-1:-6]
Zeit1<-Zeit1[-692:-697]
plot(Zeit, CO2, pch=".")
lines(Zeit1,co2s)
length(Zeit)
length(CO2)
MaunaLoa.df<-read.table("/Users/Joachim/Desktop/SpringerBuch2Auflage/SecondEdition/BegleitCD/Txt/Kap2/MaunaLoa1958-2017.txt",header=T)
length(CO2)
attach(MaunaLoa.df)
length(CO2)
detach(MaunaLoa.df)
detach(MaunaLoa.df)
detach(MaunaLoa.df)
detach(MaunaLoa.df)
MaunaLoa.df<-read.table("/Users/Joachim/Desktop/SpringerBuch2Auflage/SecondEdition/BegleitCD/Txt/Kap2/MaunaLoa1958-2017.txt",header=T)
length(CO2)
attach(MaunaLoa.df)
length(CO2)
MaunaLoa.df<-read.table("/Users/Joachim/Desktop/SpringerBuch2Auflage/SecondEdition/BegleitCD/Txt/Kap2/MaunaLoa1958-2017.txt",header=T)
attach(MaunaLoa.df)
length(CO2)
co2s<-c(1:691)
for(i in 7:697)
co2s[i-6]<-(CO2[i-6]/2+CO2[i-5]+CO2[i-4]+CO2[i-3]+CO2[i-2]+CO2[i-1]+CO2[i]+CO2[i+1]+CO2[i+2]+CO2[i+3]+CO2[i+4]+CO2[i+5]+CO2[i+6]/2)/12
Zeit1<-Zeit[-1:-6]
Zeit1<-Zeit1[-692:-697]
plot(Zeit, CO2, pch=".")
lines(Zeit1,co2s)
CO2a<-CO2[-1:-6]
CO2a<-CO2a[-692:-697]
Residuen<-CO2a-co2s
plot(Zeit1,Residuen, pch=".",xlab="",ylab="Residuen")
abline(0,0)
CO2a<-CO2[-1:-6]
CO2a<-CO2a[-692:-697]
Residuen<-CO2a-co2s
plot(Zeit1,Residuen, pch=".",xlab="",ylab="Residuen")
abline(0,0)
