Introducción al uso de formulas matematicas en R

  1. Construimos un codigo para resolver ecuaciones de 2° con la formula general
### ecuaciones de segundo grado con la formula general
a<-0.033
b<-5
c<--4
d<-sqrt(b*b-4*a*c)  
x1<-(-b+d)/(2*a)
x2<-(-b-d)/(2*a)

print(x1)
## [1] 0.79582
print(x2)
## [1] -152.311

Uso de datos estadisticos

  1. Construimos un objeto combinado con los datos de edad de los presentes en el salon de clases
edad<-c(40,22,24,24,23,22,22,50,21,22,60)
media<-mean(edad)
## media = promedio
mediana<-median(edad)
## Valor que queda exactamente a la mitad de los datos ordenados ascendentemente
## Ejemplo: 21,22,22,22,22,23,24,24,40,50,60
library(modeest)
moda<-mfv(edad)
desviacionestandar<-sd(edad)

media
## [1] 30
mediana
## [1] 23
moda
## [1] 22
desviacionestandar
## [1] 13.63085

1.1 Usamos esos datos para crear una grafica

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

##la primer linea indica el valor nimimo: 21
## la siguiente linea negra indica el cuartil 1
## la linea superior indica el valor maximo: 40
## los puntos superiores son los datos atipicos: 50 y 60
  1. Recalculamos los estadisticos sin los datos atipicos pues estos no pertenecen a las y los estudiantes del grupo
edad1<-c(40,22,24,24,23,22,22,21,22)
media1<-mean(edad1)
mediana1<-median(edad1)
desviacionestandar1<-sd(edad1)
moda1<-mfv(edad1)

media1
## [1] 24.44444
mediana1
## [1] 22
desviacionestandar1
## [1] 5.918427
moda1
## [1] 22

2.1 El resultado grafico es el siguiente:

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

  1. Sin embargo observamos que sigue existiendo un dato atipico, dada la edad de una compañera perteneciente al sistema abierto, por lo que removeremos el dato para tener una grafica mas homogenea
edad2<-c(22,24,24,23,22,22,21,22)
media2<-mean(edad2)
mediana2<-median(edad2)
desviacionestandar2<-sd(edad2)
moda2<-mfv(edad2)

media2
## [1] 22.5
mediana2
## [1] 22
desviacionestandar2
## [1] 1.069045
moda2
## [1] 22

3.1 El resultado grafico queda de la siguiente forma.

boxplot(edad2, ylab="Edad (años)", main="Grafica 3.Distribución de edad", 
        xlab="Datos solo estudiantes, sin dato atipico")