source("http://rfs.kvasaheim.com/stat200.R") dt = read.csv("http://rfs.kvasaheim.com/data/hairandeyecolor.csv") attach(d

[answerhappygod]

source("http://rfs.kvasaheim.com/stat200.R")
dt =
read.csv("http://rfs.kvasaheim.com/data/hairandeyecolor.csv")
attach(dt)
Test the hypothesis that the proportion of blue-eyed and
brown-eyed people are equal. Just report the p-value.
(Hint: Use the Binomial test and only these two
categories.)
Test the hypothesis that the eye color and hair color are
independent.
Test the hypothesis that the proportions of blue, brown, and
“other” eye colored people is 40%, 40%, and 20%. Just report the
p-value.