function to take a number or vector of numbers, divide them all by their smallest value, and round results, in R

Question

I am trying to write a function that takes a number or vector of numbers, divides them all by their smallest value, and rounds the results to the nearest whole number.

<