Nothing
forms <-
function(x){
if(is.data.frame(x) == 1) mylength <- length(x[[1]]) else mylength <- x; ## Determine number of stimuli
if(mylength%%2!=0){ ## Odd number of stimuli
ideal <- (mylength - 1)/2
my.factor <- c()
j <- 1
for(i in 1:ideal){
if (ideal%%i==0){
my.factor[j] <- i
j <- j + 1
i <- i + 1
} ## End if-statement
i <- i + 1
} ## End for-loop
cat(cat(cat(my.factor[1:(j-2)], sep=", "), "", ", or ", my.factor[length(my.factor)], sep=""), " forms are ideal.", sep="")
} ## End if-statement for odd number of stimuli
else{ ## Even number of stimuli
ideal <- (mylength - 1)
my.factor <- c()
j <- 1
for(i in 1:ideal){
if (ideal%%i==0){
my.factor[j] <- i
j <- j + 1
i <- i + 1
} ## End if-statement
i <- i + 1
} ## End for-loop
if(length(my.factor)!=2){ ## Check if n-1 is prime
cat(cat(cat(my.factor[1:(j-2)], sep=", "), "", ", or ", my.factor[length(my.factor)], sep=""), " forms are ideal.", sep="")
} ## End if-statement for n-1 prime
else{ ## Use for n-1 is prime
ideal <- (mylength - 2)
ideal2 <- mylength/2
my.factor <- c()
j <- 1
for(i in 1:ideal){
if (ideal%%i==0 & ideal2%%i==0){
my.factor[j] <- i
j <- j + 1
i <- i + 1
} ## End if-statement
i <- i + 1
} ## End for-loop
cat(cat(cat(my.factor[1:(j-2)], sep=", "), "", ", or ", my.factor[length(my.factor)], sep=""), " forms are ideal.", sep="")
} ## End else-statement for n-1 prime
} ## End else-statment for even number of stimuli
} ## End function
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.