Sample_Sizes <- c(5,5,5)
Distributions <- CT_Distribution(Sample_Sizes, Num_Sim = 1000, H = 1)
C_freq <- Distributions$C_freq
H_freq <- Distributions$H_freq
CT_Probability_Plot(C_freq)
CT_Probability_Plot(C_freq, H_freq)
Run the code above in your browser using DataLab