Utiliza la función var( ) para la varianza y sd( ) para la desviación estándar.
Archivo de guiones (script)
attach(alumnos) # agregar la tabla "alumnos"(m <- mean(Horas.Estudio)) ## media
d2 <- (Horas.Estudio - m)^2 # desviaciones al cuadrado
sd2 <- sum(d2) # suma de desviaciones al cuadrado
n <- length(Horas.Estudio) # numero de datos
(varianza <- sd2/(n-1)) ## varianza
(d.estandar <- sqrt(varianza)) ## desviacion estandar
Datos
Horas Estudio | Materias Reprobadas | Sexo |
3 | 1 | 2 |
1 | 5 | 1 |
3 | 1 | 2 |
2 | 0 | 1 |
3 | 1 | 2 |
4 | 0 | 2 |
1 | 3 | 2 |
1 | 3 | 2 |
4 | 1 | 2 |
4 | 1 | 2 |
2 | 1 | 2 |
3 | 0 | 1 |
2 | 3 | 2 |
1 | 1 | 2 |
2 | 3 | 1 |
3 | 0 | 2 |
2 | 2 | 1 |
2 | 2 | 2 |
1 | 4 | 1 |
1 | 4 | 2 |
1 | 4 | 1 |
3 | 0 | 2 |
2 | 2 | 2 |
3 | 2 | 2 |
1 | 4 | 2 |
2 | 2 | 2 |
0 | 5 | 1 |
3 | 1 | 2 |
1 | 3 | 1 |
2 | 2 | 2 |
No hay comentarios.:
Publicar un comentario