diff --git a/R/r_data_frame.R b/R/r_data_frame.R
index b58bb7b..0a00628 100644
--- a/R/r_data_frame.R
+++ b/R/r_data_frame.R
@@ -98,7 +98,7 @@ function (n, ..., rep.sep = "_") {
 
     out <- stats::setNames(data.frame(out, stringsAsFactors = FALSE,
         check.names = FALSE), nms)
-    dplyr::tbl_df(out)
+    dplyr::as_tibble(out)
 }
 
 
diff --git a/R/r_dummy.R b/R/r_dummy.R
index 9c8c199..1243a42 100644
--- a/R/r_dummy.R
+++ b/R/r_dummy.R
@@ -26,7 +26,7 @@ r_dummy <- function(fun, n, ..., prefix = FALSE, rep.sep = "_") {
 
     vect <- fun(n = n, ...)
 
-    out <- dplyr::tbl_df(mtabulate(vect))
+    out <- dplyr::as_tibble(mtabulate(vect))
 
     if (isTRUE(prefix)) {
         names(out) <- paste(attributes(vect)[["varname"]], colnames(out),
diff --git a/R/r_series.R b/R/r_series.R
index 38ed278..09a75b9 100644
--- a/R/r_series.R
+++ b/R/r_series.R
@@ -118,7 +118,7 @@ r_series <- function(fun, j, n, ..., integer = FALSE, relate = NULL,
 
     names(out) <- paste(attributes(out[[1]])[["varname"]], seq_len(j),sep = rep.sep)
 
-    out <- seriesname(dplyr::tbl_df(as.data.frame(out)), attributes(out[[1]])[["varname"]])
+    out <- seriesname(dplyr::as_tibble(as.data.frame(out)), attributes(out[[1]])[["varname"]])
 
     if (isTRUE(integer)) out <- as_integer(out)
 
diff --git a/R/relate.R b/R/relate.R
index 4613b65..44f08f6 100644
--- a/R/relate.R
+++ b/R/relate.R
@@ -67,6 +67,6 @@ relate <- function(x, j, name = NULL, operation = "+", mean = 5, sd = 1,
 
     out <- stats::setNames(seed_dat, paste(name, seq_len(j), sep = rep.sep))
 
-    seriesname(dplyr::tbl_df(out), name)
+    seriesname(dplyr::as_tibble(out), name)
 }