diff --git a/R/tidy-set.R b/R/tidy-set.R
index 61828b2..ca1bcbf 100644
--- a/R/tidy-set.R
+++ b/R/tidy-set.R
@@ -79,10 +79,9 @@ tidySet.data.frame <- function(relations) {
 #' names(B) <- letters[3:7]
 #' relations <- list(A, B)
 #' tidySet(relations)
-#' \donttest{
-#' x <- list("A" = letters[1:5], "B" = LETTERS[3:7], "c" = runif(5))
-#' a <- tidySet(x) # Only characters or factors are allowed as elements.
-#' }
+#' # Will error
+#' # x <- list("A" = letters[1:5], "B" = LETTERS[3:7], "c" = runif(5))
+#' # a <- tidySet(x) # Only characters or factors are allowed as elements.
 tidySet.list <- function(relations) {
 
     char <- vapply(relations, is.character, logical(1L))
diff --git a/man/tidySet.Rd b/man/tidySet.Rd
index ea3368e..fa52db5 100644
--- a/man/tidySet.Rd
+++ b/man/tidySet.Rd
@@ -65,10 +65,9 @@ B <- runif(5)
 names(B) <- letters[3:7]
 relations <- list(A, B)
 tidySet(relations)
-\donttest{
-x <- list("A" = letters[1:5], "B" = LETTERS[3:7], "c" = runif(5))
-a <- tidySet(x) # Only characters or factors are allowed as elements.
-}
+# Will error
+# x <- list("A" = letters[1:5], "B" = LETTERS[3:7], "c" = runif(5))
+# a <- tidySet(x) # Only characters or factors are allowed as elements.
 M <- matrix(c(1, 0.5, 1, 0), ncol = 2,
             dimnames = list(c("A", "B"), c("a", "b")))
 tidySet(M)