cbind(data_searle,
.group=con_check(data_searle, ~ f1 + f2))
data_searle = transform(data_searle,
y = rnorm(nrow(data_searle), mean=100))
con_view(data_searle, y ~ f1*f2, cluster=FALSE, main="Searle unsorted")
con_view(data_searle, y ~ f1*f2, main="Searle clustered")
Run the code above in your browser using DataLab