introduccioòn

####este es un primer informe de trabajo en r estamos viendo una introducciòn de su funcionamiento como primer paso comenzamos haciendo un codigo para resolver ecuaciones de segundo grado usand la formula general, popualarmente conocida en los bajos mundos como “la del chicharronero”

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

estadistica super basica

tenemos una variable con las edades de las personas en el salon y calculamos algunos estadisticos basicos

edad<-c(40,22,24,24,23,22,22,50,21,22,60)
m<-mean (edad)
## la media promedio es lo mismo

mediana<-median(edad)
##es el valor que queda en medio de los datos ordenados en forma creciente
##en el ejemplo 21,22,22,22,22,23,24,24,40,50,60
library(modeest)
moda<-mfv(edad)
s<-sd(edad)
mean
## function (x, ...) 
## UseMethod("mean")
## <bytecode: 0x0000020a33bb4008>
## <environment: namespace:base>
mediana
## [1] 23
moda
## [1] 22
s
## [1] 13.63085

exploraremos graficamente la variable edad

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

en la grafica observamos dos valores atipicos, vamos aquitarlos y recalcularemos los estadistica y visualizaremos la grafica sin estos valores

edad1<-c(40,22,24,24,23,22,22,21,22)
media1<-mean(edad1)
mediana1<-median(edad)
moda1<-mfv(edad)
s1<-sd(edad1)

boxplot(edad1,ylab="edad1 (años)", main= "grafica2. distribucion de edad de esudiantes")

se observa otro dato atipico en donde quitaremos y volvemos a calcular

edad2<-c(22,24,24,23,22,22,21,22)
media2<-mean(edad2)
s2<-sd(edad2)
media2<-mean(edad1)
mediana2<-median(edad)
moda2<-mfv(edad)
boxplot(edad2,ylab="edad2 (años)", main= "grafica3. distribucion de edad de esudiantes sin atipicos")