The best social investigation ever

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.