Nothing
WilliamsDesign = function (nbprod,seed=NULL) {
if (is.null(seed)) seed=sample(1:10000,1)
if (nbprod == 2) plan <- matrix(c(1, 2, 2, 1), 2, 2)
if (nbprod == 3) plan <- matrix(c(1,2,3,3,1,2,2,3,1,2,3,1,3,1,2,1,2,3), 6, 3)
if (nbprod > 3) {
plan <- matrix(0,nbprod,nbprod)
ligne = c(0,rep(1,nbprod-1))
ligne[(2:(nbprod%/%2))*2] = 2:(nbprod%/%2)
ligne[(2:(nbprod%/%2+nbprod%%2))*2-1] = (nbprod-1):((nbprod%/%2+1))
plan[1,]=ligne
for (i in 2:nbprod) plan[i,] <- (plan[i-1,]+1)%%nbprod
if ((nbprod%%2)==1) {
plan2 <- plan
plan2[1,] <- rev(ligne)
for (i in 2:nbprod) plan2[i,] <- (plan2[i-1,]+1)%%nbprod
plan <- rbind(plan,plan2)
}
row.names(plan) <- NULL
plan <- plan+1
}
if (!is.null(seed)) {
set.seed(seed)
alea <- nbprod+sample(1:nbprod)
for (k in 1:nbprod) plan =matrix(replace(plan,plan==k,alea[k]),ncol=nbprod)
plan <- plan-nbprod
}
colnames(plan) <- paste("Rank",1:nbprod)
rownames(plan) <- paste("Judge",1:nrow(plan))
return(plan)
}
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.