Introduccion

Este es un primer documento, un primer informe de trabajo en R, estamos viendo una introduccion xd. Como primer paso hicimos un codigo para resolver ecuaciones de segundo grado,usando la fromula general AKA. “La del chichcarronero”

###estamos resolviendo ecuaciones de segundo grado
### con la formula general 
a<-1
b<-3
c<--1
d<-sqrt(b*b-4*a*c)
x1<-(-b+d)/(2*a)
x2<-(-b-d)/(2*a)
print(x1)
## [1] 0.3027756
print(x2)
## [1] -3.302776

Estadistica nivel cero

Tenemos una variable con las edades de las personas en el salon y calculamos algunos esadisticos basicos :)

edad<-c(40,22,24,24,23,22,22,50,21,22,60) 
media<-mean(edad)
## la media o promedio es lo mismo
mediana<-median(edad)
## es el valor que queda en medio de los daatos ordenados en forma ascendente 
### en el ejemplo 21,22,22,22,22,23,24,24,40,50,60
library(modeest)
moda<-mfv(edad)
s<-sd(edad)
media
## [1] 30
mediana 
## [1] 23
moda
## [1] 22
s
## [1] 13.63085

RETO

vamos a graficar esta variable

boxplot(edad, ylab="edad(años)",main="grafica 1. distribucion de la edad",xlab="datos totales")

Observamos dos datos atipicos que se deban a personas que no son estudiantes y se encuentran en el salon -_0

sin los datos atipicos y recalcularemos los estadisticos y suavizaremos la grafica sin estos valores

edad1<-c(40,22,24,24,23,22,22,21,22) 
media1<-mean(edad1)
moda1<-mfv(edad1)
s1<-sd(edad1)
media1
## [1] 24.44444
s1
## [1] 5.918427
moda1
## [1] 22
boxplot(edad1, ylab="edad(años)", main= "grafica 2 distribucion de la edad",xlab="solo estudiantes")

grafica 3

al observar la grafica 2 notamos otra persona con un valor atipico,asi que realizaremos los calculos nuevamente sin ese dato atipico

edad2<-c(22,24,24,23,22,22,21,22)
media2<-mean(edad2)
moda2<-mfv(edad2)
sd2<-sd(edad2)
media2
## [1] 22.5
sd2
## [1] 1.069045
moda2
## [1] 22
boxplot(edad2, ylab="edad(años)",main="grafica 3 ditribucion de la edad", xlab="solo estudiantes sin datos atipicos")