verk = c(420, 130, 70)
names(verk) = c("schwarz", "dunkelgrau", "weiß")

# Verkaufszahlen in 2:1:1 Verhältnis?

chisq.test(x=verk, p=c(0.5, 0.25, 0.25))