# Jellemezze a vércsoport változó eloszlását a következő minta alapján!
#   A, A, A, B, AB, B, AB, AB, 0, A, A, A, B, B, AB, AB, 0, 0, B, B

ver = c("A", "A", "A", "B", "AB", "B", "AB", "AB", "0", "A", "A", "A", "B", "B", "AB", "AB", "0", "0", "B", "B")

length(ver)

absz = table(ver)
prop.table(absz)

barplot(absz)
barplot(prop.table(absz))

pie(absz)