In R, I need to write a function that takes two parameters. The first is a vector and the second is a number. The function will return the percentage of the elements within the vector that is less than the same (i.e. the cumulative distribution below the value provided). For example, if the vector had 5 elements (1,2,3,4,5), with 2 being the number passed into the function, the function would return 0.2 (since 20% of the numbers were below 2).