From 7813d0f5cec682ec42d43eabb46d4192845fd569 Mon Sep 17 00:00:00 2001 From: Daniel Sabanes Bove Date: Mon, 11 Dec 2023 22:14:10 +0100 Subject: [PATCH] fix typo --- tests/testthat/test-fit_gee.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-fit_gee.R b/tests/testthat/test-fit_gee.R index 8a986d4..41475af 100644 --- a/tests/testthat/test-fit_gee.R +++ b/tests/testthat/test-fit_gee.R @@ -47,7 +47,7 @@ test_that("order_data works as expected", { result <- expect_silent(order_data(data = df, vars = vars)) expect_integer(result$USUBJID, sorted = TRUE) result_order <- order(result$USUBJID, result$AVISIT) - expect_identical(df_order, seq_len(nrow(result))) + expect_identical(result_order, seq_len(nrow(result))) }) test_that("order_data messages are as expected and can be suppressed for character visit variable", { @@ -66,7 +66,7 @@ test_that("order_data messages are as expected and can be suppressed for charact ) expect_integer(result$USUBJID, sorted = TRUE) result_order <- order(result$USUBJID, result$AVISIT) - expect_identical(df_order, seq_len(nrow(result))) + expect_identical(result_order, seq_len(nrow(result))) }) # fit_gee ----