randomassignment.R

# Define the levels for each factor
factor1 <- c('firefox', 'chrome', 'edge')
factor2 <- c('duckduckgo', 'google', 'bing')

# Create the combination of all possible treatments
treatments <- expand.grid(factor1 = factor1, factor2 = factor2)

# Set the number of replications per treatment
replications <- 4

# Create an empty dataframe to store the randomized assignments
randomized_assignments <- data.frame(factor1 = character(),
                                     factor2 = character())

# Perform random assignment for each treatment and replication
for (i in 1:nrow(treatments)) {
  for (j in 1:replications) {
    randomized_assignments <- rbind(randomized_assignments, 
                                    data.frame(factor1 = treatments[i, 'factor1'],
                                               factor2 = treatments[i, 'factor2']))
  }
}

# Randomize the assignment order
randomized_assignments <- randomized_assignments[sample(nrow(randomized_assignments)), ]

# Write the factor1 and factor2 columns to the "order.csv" file
write.csv(randomized_assignments, "order.csv", row.names = FALSE,quote = FALSE)