head(status, 3)
# Aquaculture data entries
# Percentage that have official status, estimated, and negligible
100 * proportions(table(aquaculture$status))
# Capture data entries
# Percentage that have official status, estimated, and negligible
100 * proportions(table(capture$status))
# Examine one status definition
print.simple.list(status[status$status=="N",])
Run the code above in your browser using DataLab