Write an R script to answer the following questions:

Create a vector called studentsID that consists of $20$ distinct numbers between $13000$ and $14500$

Create another vector called studentAges that consists of $20$ random numbers between $17$ and $25$

Display both lists

Find the mean, median, oldest and youngest age represented

List each student and the student$$s corresponding age

Print a list of the ages represented

Print a list of the ages not represented

Print a list of ages that are duplicated

Print a list of the ages not represented

Print a list of all students ages$$ older than $20$

Print a list of students between $18$ and $20$

Create a bar chart of the ages add appropriate labels, colors