?chisq.test
 # options(scipen = 999) #untuk menghilangkan notasi 10^
 options(scipen = TRUE) #untuk menggembalikan notasi format pangkat


# Jantan=47, betina=86
prop <- c(1, 2) # data proporsi jantan betina pada ikan x
res <- chisq.test(prop)
res

# H0 = Bahwa proporsi antara jantan dan betina pada ikan x sama
# H1 = Bahwa proporsi antara jantan dan betina pada ikan x tidak sama

# default p = rep(1/length(x)
(p = rep(1/length(prop)))