# NOT RUN {
data('HairEyeColor')
dat <- as.data.frame(HairEyeColor)
propTestN(formula = Freq ~ Eye, data = dat, ratio = c(1,1,1,1))
#
# PROPORTION TEST (N OUTCOMES)
#
# Proportions
# --------------------------------
# Level Count Proportion
# --------------------------------
# Brown 220 0.372
# Blue 215 0.363
# Hazel 93 0.157
# Green 64 0.108
# --------------------------------
#
#
# X<U+00B2> Goodness of Fit
# -----------------------
# X<U+00B2> df p
# -----------------------
# 133 3 < .001
# -----------------------
#
# }
Run the code above in your browser using DataCamp Workspace