Nothing
#(size c.three way nested. model 7 b)
# Section 3.4.2.6 test factor B in A
# Three way nested classification. Model VII A>B>C
# Factor B fixed, A and C random. Determining c,
# a and b are given. n is fixed to 1. Testing hypothesis about factor B
size_c.three_way_nested.model_7_b <- function(alpha, beta, delta, a, b, n, cases)
{
c <- 5
c.new <- 1000
while (abs(c -c.new)>1e-6)
{
c <- c.new
dfn <- a*(b-1)
dfd <- a*b*(c-1)
lambda <- ncp(dfn,dfd,alpha,beta)
if (cases == "maximin")
{
c.new <- 2*lambda/(n*delta*delta)
}
else if (cases == "minimin")
{
c.new <- 4*lambda/(a*b*n*delta*delta)
}
}
return(ceiling(c.new))
}
# example
# size.3_4_2_6.test_factor_B(0.05, 0.1, 0.5, 6, 4, 1, "maximin")
# size.3_4_2_6.test_factor_B(0.05, 0.1, 0.5, 6, 4, 1, "minimin")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.