From 9732589e9800730c8710e57a7299a31d787bbc4a Mon Sep 17 00:00:00 2001 From: leifeld Date: Sun, 15 Oct 2023 15:31:09 +0100 Subject: [PATCH] Fixed backbone unit test --- rDNA/rDNA/DESCRIPTION | 2 +- rDNA/rDNA/tests/testthat/test-backbone.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rDNA/rDNA/DESCRIPTION b/rDNA/rDNA/DESCRIPTION index 164db84f..0157d671 100755 --- a/rDNA/rDNA/DESCRIPTION +++ b/rDNA/rDNA/DESCRIPTION @@ -1,6 +1,6 @@ Package: rDNA Version: 3.0.11 -Date: 2023-09-22 +Date: 2023-10-15 Title: Discourse Network Analysis in R Authors@R: c(person(given = "Philip", diff --git a/rDNA/rDNA/tests/testthat/test-backbone.R b/rDNA/rDNA/tests/testthat/test-backbone.R index 3bb485ca..0345bcd1 100644 --- a/rDNA/rDNA/tests/testthat/test-backbone.R +++ b/rDNA/rDNA/tests/testthat/test-backbone.R @@ -2,10 +2,10 @@ context("backbone") # Initialize DNA and sample database suppressPackageStartupMessages(library("rDNA")) -dna_init() test_that("Penalized backbone works", { samp <- dna_sample() + dna_init() dna_openDatabase(samp, coderId = 1, coderPassword = "sample") b <- dna_backbone(method = "penalty", penalty = 3.5,