students = c(10,15,20,15,17,24,27,19,32,61,5,10,12,14,12,6,18,21,66,4)
length(students)
sorted_students = students[order(students)]

#Histogram chart
hist(students)

# line chart
plot(sorted_students, type = 'o')

#density chart
students_density = density(sorted_students)
plot(students_density, frame = TRUE, main = 'Density plot')

min(sorted_students)
max(sorted_students)
range(sorted_students)
mean(sorted_students)
median(sorted_students)
var(sorted_students)
sd(sorted_students)
mode(sorted_students)

skewness(sorted_students)