###INTRODUCCIÓN eSTE ES UN PRIMER INFORME DE TRABAJO EN R. COMO PRIMER PASO HICIMOS UN CÓDIGO PARA RESOLVER ECUACIONES DE 2DO GRADO, USANDO LA FÓRMULA GENERAL.PARA CORRER TODO ESTO, PRESIONARA “KNIT”.

###Primer ejercico en R, tratamos de reolver ecuaciones de segundo grado
###con la fórmula 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)
print(X2)

###ESTADÍSTICA SUPERBÁSICA TENEMOS UNA VARIABLE CON LAS DADES DE LAS PERSONAS EN EL SALON Y CALCULAMOS ALGUNOS ESTADÍSTICOS BÁSICOS

edad<-c(40,22,24,24,23,22,22,50,21,22,60)
media<-mean(edad)
##media es promedio
mediana<- median(edad) 
##Es el valor que se obtiene de ordenar la totalidad de los datos y ubicar el que está más al centro entre el orden de menor a mayor
library(modeest)
moda<- mfv(edad)
dist(edad)
##     1  2  3  4  5  6  7  8  9 10
## 2  18                           
## 3  16  2                        
## 4  16  2  0                     
## 5  17  1  1  1                  
## 6  18  0  2  2  1               
## 7  18  0  2  2  1  0            
## 8  10 28 26 26 27 28 28         
## 9  19  1  3  3  2  1  1 29      
## 10 18  0  2  2  1  0  0 28  1   
## 11 20 38 36 36 37 38 38 10 39 38
s<- sd(edad)

media
## [1] 30
mediana
## [1] 23
moda
## [1] 22
s
## [1] 13.63085
###A continuación, exploraremos las gráficas que derivan de una muestra general de las edades de las 11 personas del salón de clase.

edad<-c(40,22,24,24,23,22,22,50,21,22,60)
media<-mean(edad)
##media es promedio
mediana<- median(edad) 
##Es el valor que se obtiene de ordenar la totalidad de los datos y ubicar el que está más al centro entre el orden de menor a mayor
moda<- mfv(edad)
boxplot(edad,ylab="edad(años)",main="Gráfica 1. Distribución de la edad",xlab="Datos totales")

##esta gráfica nos da a conocer los datos atípicos a través de cuantiles


edad1<-c(40,22,24,24,23,22,22,21,22)
media1<- mean(edad1)
mediana1<- median(edad1)
moda1<- mfv(edad1)
s1<- sd(edad1)
boxplot(edad1,ylab="Edad (años)", main="Gráfica 2. Distribución de la edad de estudiantes")

##en esta segunda gráfica, excluimos las edades de las personas participantes en la primer muestra que no pertenecían al grupo de estudiantes


edad2<-c(22,24,24,23,22,22,21,22)
media2<- mean(edad2)
mediana2<- median(edad2)
moda2<- mfv(edad2)
s2<- sd(edad2)
boxplot(edad2,ylab="Edad (años)", main="Gráfica 3. Distribución de la edad sin atípicos")

##por último, exploramos gráficamente las edades de los estudiantes sin la edad atípica de la muestra