Using R or RStudio

Write afunctionnamedcheck_vec_totalthat takes a singleargument:

• x: a numeric vector of some length.

The function shouldreturna length one character vector :

• If the sum of the elements of the x vector is less than or equal to 13, the function should return the length one character vector containing the elementsmall total.
• If the sum of the elements of the x vector is greater than 13 but less than or equal to 30, the function should return the length one character vector containing the elementmedium total.
• If the sum of the elements of the x vector is greater than 30 the function should return the length one character vector containing the elementlarge total.