INTRODUCCIÓN

Este es un primer informe de lo visto en clase,primero a manera de intrucción realizamos un codigo que nos ayudaba a resolver ecuaciones generales de segundo grado

### Ecuaciones de segundo grado
### con formula general
a<-1
b<-0
c<--4
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 como variables las edades de lxs estudiantes y se calcularon algunos estadisticos basicos

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

mediana<-median(edad) 

###es el valor que se obtiene al ordenar los datos de mayor a menor y queda al medio
### 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

Como siguiente paso graficamos una caja con las edades de todxs los asistentes, este fué el resultado

boxplot(edad, ylab= "edad(años)", main= "Gráfica 1. Distribución de la edad",
        xlab="DATOS TOTALES")

Encontramos algunos datos atipicos debido a personas que no eran estudiantes y se encontraban en le salón, por ello decidimos borrar sus edades, obteniendo el siguiente resultado:

edad1<-c(40,22,24,24,23,22,22, 21,22)
media1<- mean(edad1)
s1<- sd(edad1)
boxplot(edad1, ylab= "edad en años", main= "Gráfica 2. Distribución de edad",
        xlab="Datos solo estudiantes")

En la grafica se aprecio que una compañera perteneciente al SUA nos daba su edad como un valor atipico, por ello decidimos quedarnos solo con las personas del sistema escolarizado, estos fueron los nuevos resultados:

edad2<-c(22,24,24,23,22,22, 21,22)
S2<- sd(edad2)
media2<- mean(edad2)
boxplot(edad2, ylab= "edad en años", main= "Gráfica 3. Distribución de edad",
        xlab="SIN DATOS ATIPICOS")