##Introducción

Este es un primer informe del trabajo realizado en RStudio de modo introductorio. Como primer paso, hicimos un código para resolver ecuaciones de segundo grado usando la fórmula general (???)

###Resolviendo ecuaciones de segundo grado
###Con la fórmula 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

Estadística básica

Tenemos una variable con las edades de las personas en el salón, y calculamos algunos estadísticos básicos.

edad <- c(40,22,24,24,23,22,22,50,21,22,60)
m<-mean(edad)
##Promedio de los valores
mediana<-median(edad)
##Valor intermedio
##
library(modeest)
moda<-mfv(edad)
s<-sd(edad)
m
## [1] 30
mediana
## [1] 23
moda
## [1] 22
s
## [1] 13.63085

Gráficas

Exploraremos gráficamente la variable edad

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

En la gráfica observamos dos valores atípicos debido a la presencia de dos personas que no son estudiantes, vamos a quitarlos y recalcularemos los estadísticos y visualizaremos la gráfica sin estos valores:

edad1<- c(40,22,24,24,23,22,21,22)
media1<-mean(edad1)
s1<-sd(edad1)

boxplot(edad1,ylab="Edad (años)",main="Gráfica 2. Distribución de la edad",
        xlab="Datos solo estudiantes")

Dentro de los estudiantes, volvemos a ver un dato atípico, así que vamos a removerlo para visualizar la variación en una nueva gráfica:

edad2 <- c(22,24,24,23,22,22,21,22)
media2<-mean(edad2)
s2<-sd(edad2)

boxplot(edad2,ylab="Edad (años)", main="Gráfica 3. Distribución de la edad",
        xlab="Datos solo estudiantes sin atípico")