Hello, this
is what happens when I can write anything I want. This is my statistics homework, it is a very interesting investigation that I hope can help a lot of persons. This
is only a synopsis but it is enough to understand it.
I wanted to make easier to read, because
it was very hard, and I think I was successful. Put very much attention at
every detail.
library(xlsx)install.packages("xlsx")library(xlsx)base1<-read.xlsx("Base1.xlsx",
sheetIndex=1, startRow=2,finalRow=36,olIndex=1:12)summary(base1$pob)summary(base1$PIB)summary(base1$GP)summary(base1$GPE)summary(base1$GPEpercapita)summary(base1$PISA2009)summary(base1$PISA2012)summary(base1$uRannk2009)wajajajajajsummary(base1$uRank2012)summary(base1$PMR)summary(base1$impuesto)mean(base1$pob,trim
= 5/100,na.rm=T)mean(base1$PIB,trim = 5/100,na.rm=T)mean(base1$GP,trim =
5/100,na.rm=T)mean(base1$GPE,trim = 5/100,na.rm=T)mean(base1$GPEpercapita,trim
= 5/100,na.rm=T)mean(base1$PISA2009,trim = 5/100,na.rm=T)mean(base1$PISA2012,trim
= 5/100,na.rm=T)mean(base1$uRannk2009,trim = 5/100,na.rm=T)mean(base1$uRank2012,trim
= 5/100,na.rm=T)mean(base1$PMR,trim = 5/100,na.rm=T)mean(base1$impuesto,trim =
5/100,na.rm=T)var(base1$pob,na.rm=T)var(base1$PIB,na.rm=T)var(base1$GP,na.rm=T)var(base1$GPE,na.rm=T)var(base1$GPEpercapita,na.rm=T)var(base1$PISA2009,na.rm=T)var(base1$PISA2012,na.rm=T)var(base1$uRannk2009,na.rm=T)var(base1$uRank2012,na.rm=T)var(base1$PMR,na.rm=T)villabavieravar(base1$impuesto,na.rm=T)sd(base1$pob,na.rm=T)sd(base1$PIB,na.rm=T)sd(base1$GP,na.rm=T)sd(base1$GPE,na.rm=T)sd(base1$GPEpercapita,na.rm=T)sd(base1$PISA2009,na.rm=T)sd(base1$PISA2012,na.rm=T)sd(base1$uRannk2009,na.rm=T)sd(base1$uRank2012,na.rm=T)sd(base1$PMR,na.rm=T)sd(base1$impuesto,na.rm=T)sd(base1$pob,na.rm=T)/mean(base1$pob,na.rm=T)sd(base1$PIB,na.rm=T)/mean(base1$PIB,na.rm=T)sd(base1$GP,na.rm=T)/mean(base1$GP,na.rm=T)sd(base1$GPE,na.rm=T)/mean(base1$GPE,na.rm=T)sd(base1$GPEpercapita,na.rm=T)/mean(base1$GPEpercapita,na.rm=T)sd(base1$PISA2009,na.rm=T)/mean(base1$PISA2009,na.rm=T)sd(base1$PISA2012,na.rm=T)/mean(base1$PISA2012,na.rm=T)sd(base1$uRannk2009,na.rm=T)/mean(base1$uRannk2009,na.rm=T)sd(base1$uRank2012,na.rm=T)/mean(base1$uRank2012,na.rm=T)sd(base1$PMR,na.rm=T)/mean(base1$PMR,na.rm=T)sd(base1$impuesto,na.rm=T)/mean(base1$impuesto,na.rm=T)intervalos.pib<-put(pib,seq(min(12860),max(14420000),by=10000,include.lowest=T)table(pib,PIB)
Did you get
it? What I have discovered here can change the world for ever, all this information
can give us the sense of universe and make all the people live in peace forever.
It can make
the left lists in our university united.
It can make
Jose leave the cigarette
It can help
Simon to sell his peanuts
It can make
Tool come to Chile
It can make
us imagine the people
It can make
us know what the Negro wants
It can make
Junaeb to last all the month.
It can make the guards let you in JGM late on Friday
It is the best
work I have ever done, I hope you like it and be useful for you, remember it the
rest of your life and all your problems will be resolved.