Introducción

Este es un primer documento en el programa de R Estudio, nos encontramos viendo una introducción Como primer paso comenzamos haciendo un codigo para resolver ecuaciones de segundo grado utilizando la formula general.

### Estamos resolviendo ecuaciones de segundo grado
### con la formula general
a<-0.033
b<-5
c<--4
d<-sqrt(b*b-4*c)
x1<-(-b+d)/(2*a)

x2<-(-b-d)/(2*a)
print(x1)
## [1] 21.25946
print(x2)
## [1] -172.7746

Estadistica super básica

Tenemos una variable con las edades de las personas en el salón y calculamos algunos estadisticos básicos

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

Exploraremos la variable edad

boxplot(edad,ylab="edad (años)",main="grafica 1. Distribución de edad",
        xlab="Datos totales")

En la grafica observamos dos valores atípicos, vamos a quitarlos y recalcularemos los estadisticos y visualizaremos la grafica sin estos valores

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

Observamos otro dato atipico, lo borramos y recalculamos los estadisticos

edad2<-c(22,24,24,23,22,22,22,21)
media2<-mean(edad2)
median2<-median(edad2)
moda2<-mfv(edad2)
s2<-sd(edad2)
media2
## [1] 22.5
median2
## [1] 22
moda2
## [1] 22
s2
## [1] 1.069045
boxplot(edad2,ylab="edad (años)",main="grafica 3. Distribución de edad",
        xlab="Solo estudiantes, Sin dato atipico")