INTRODUCCIÓN

Este es un primer informe de trabajo en R, se está viendo una introducción. Como primer paso hicimos un código para resolver ecuaciones de seundo grado usando una fórmula general.

###ESTAMOS RESOLVIENDO ECUACIONES DE SEGUNDO RADO
###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

###Estadítica súper 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)
media<-mean(edad)
##MEDIA O PROMEDIO ES LO MISMO

mediana<-median(edad)
##ES EL VALOR QUE SE OBTIENE QUE QUEDA EN MEDIO DE LOS DATOS ORDENADOS EN FORMA CRECIENTE
##EN EL 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

#Ahora exploraremos graficamente la variable edad.

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

Observamos dos datos atípicos, los quitaremos y visalizaremos la gráfica sin estos valores.

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

Observamos un dato atípico, lo quitaremos y volvemos a calcular.

edad2<-c(22,24,24,23,22,22,21,22)
media2<-mean(edad2)
mediana2<-median(edad2)
moda2<-mfv(edad2)
s2<-sd(edad2)
media2
## [1] 22.5
mediana2
## [1] 22
moda2
## [1] 22
s2
## [1] 1.069045
boxplot(edad2, ylab="Edad(años)",main="Gráfica 3. Distribución de la edad", xlab="Datos solo estudiantes, sin dato atípico")