notas1<-c(7.1,4.9,7.8,5.8,8.2,5.3,7.5,7.3,5.8,7.4,5.7,7.0,7.6,6.2,7.1,5.4,6.2,8.6,5.8,8.6,5.0,7.3,6.4,6.8,5.6,4.5,7.2,6.5,8.7,5.6)

mednotas<-mean(notas1)
print(mednotas)
desvnotas<-sd(notas1)
print(desvnotas)
summary(notas1)

notas2<-c(4.47,4.47,3.48,5.00,3.42,3.78,3.10,3.57,4.20,4.50,3.60,3.75,4.50,2.85,3.70,4.20,3.20,4.05,4.90,5.10,5.30,4.16,4.56,3.54,3.50,5.20,4.71,3.70,4.78,4.14,4.14,4.80,4.10,3.83,3.60,2.98,4.32,5.10,4.30,3.90,3.96,3.54,4.80,4.30,3.39,4.47,3.19,3.75,3.10,4.70,3.69,3.30,2.85,5.85,4.68,4.04,4.44,5.43,3.04)

boxplot(notas2, main="Notas del examen de admisión de 60 estudiantes" ,ylab="nota (0 - 10)")

hist (notas2 , main= "Notas del examen de admisión de 60 estudiantes" , xlab="nota (0-10)" , ylab="Frecuencia")

stem (notas2)

par ( mfrow =c(2, 2))

hist ( notas1)

boxplot ( notas1)

hist ( notas2)

boxplot ( notas2)

# Script que construye un gráfico de pastel, a partir de las preferencias de
#los estudiantes de matemáticas de marcas de gaseosas.
#se asignan las frecuencias absolutas a un vector

GasPrefer<-c(10,8,4,2,4)

#se asignan los nombres respectivos a los elementos del vector anterior

names ( GasPrefer) <-c("Salva Cola", "Pepsi Cola", "Coca Cola", "Fanta", "Ninguna")

# se crea el gráfico de pastel con la función pie

pie ( GasPrefer, main="preferencias de gaseosas de cola")