# Prepare Data
v1 <- sample(1:9, size = 1000, replace = TRUE)
# Calculate Proportion of Maximum Possible (by specifying the minimum and maximum possible)
pom(v1, min = 0, max = 10)
# Calculate Proportion of Maximum Observed
pom(v1)
Run the code above in your browser using DataLab