Para seguir probando

base1 <- diamantes
summary(base1$precio)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     326     950    2401    3933    5324   18823

Incluyendo gráficas

edad <- c(20,22,23,21,20,22,21) #edades de 7 estudiantes (variable cuatitativa)

nombre <- c("Anamaría","paula", "Mariana 1", "Mariana 2", "Valeria", "Nicolás", "Jose")

edad
## [1] 20 22 23 21 20 22 21
promedio_edad <- sum(edad)/length(edad);promedio_edad
## [1] 21.28571
print("El promedio de la edad es = 21.28571")
## [1] "El promedio de la edad es = 21.28571"
paste ("el promedio de la edad es = ", promedio_edad)
## [1] "el promedio de la edad es =  21.2857142857143"
cat ("El promedio de la edad es = ", promedio_edad)
## El promedio de la edad es =  21.28571
summary(base1$precio)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     326     950    2401    3933    5324   18823
hist(base1$precio)