# assigner 0.6.0 2024-11-06

* refresh for new R version

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: assigner
 Type: Package
 Title: Assignment Analysis with RADseq Data
-Version: 0.5.9
-Date: 2023-03-15
+Version: 0.6.0
+Date: 2024-11-06
 Encoding: UTF-8
 Authors@R: c(
   person("Thierry", "Gosselin", email = "[email protected]", role = c("aut", "cre")),
@@ -49,6 +49,6 @@ LazyLoad: yes
 LazyData: true
 VignetteBuilder: 
     knitr
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 URL: http://thierrygosselin.github.io/assigner/
 BugReports: https://github.com/thierrygosselin/assigner/issues

NEWS.md

@@ -1,3 +1,7 @@
+# assigner 0.6.0 2024-11-06
+
+* refresh for new R version
+
 # assigner 0.5.9 2023-03-15
 
 * work on *assigner::fst_WC84*

R/fst_WC84.R

@@ -383,6 +383,7 @@ fst_WC84 <- function(
   # strip the data -------------------------------------------------------------
   # increases speed for large datasets
   env.arg <- rlang::current_env()
+
   data %<>%
     radiator::strip_rad(
       x = .,
@@ -476,6 +477,7 @@ fst_WC84 <- function(
     # res <- purrr::prepend(x = res, values = purrr::flatten(subsample.fst))
     # change strata --------
     nms <- subsample.fst %>% purrr::map(names) %>% purrr::reduce(union)
+    if (!pairwise && "pairwise.fst" %in% nms) nms <- purrr::discard(.x = nms, .p = nms %in% "pairwise.fst")
     res <- purrr::map(
       .x = nms,
       .f = fst_stats,
@@ -487,6 +489,8 @@ fst_WC84 <- function(
     ) %>%
       purrr::flatten(.)
 
+
+
     # test1 <- res$pairwise.fst
     # test2 <- res$pairwise.fst.upper.matrix
     # test3 <- res$pairwise.fst.full.matrix
@@ -1748,6 +1752,8 @@ assigner_fst_stats <- function(
 
 fst_stats <- function(x, l, digits = 9L, m = NULL, s = NULL, subsample = FALSE) {
   # x = "pairwise.fst" # test
+  # x = "fst.markers"
+  # x = "fis.overall"
   res <- list()
   # message(x)
   want <- c("sigma.loc", "fst.markers", "fst.ranked", "fst.overall",

README.md

@@ -9,8 +9,8 @@ state and is being actively
 developed.](http://www.repostatus.org/badges/latest/active.svg)](http://www.repostatus.org/#active)
 [![minimal R
 version](https://img.shields.io/badge/R%3E%3D-3.5.0-6666ff.svg)](https://cran.r-project.org/)
-[![packageversion](https://img.shields.io/badge/Package%20version-0.5.9-orange.svg)](commits/master)
-[![Last-changedate](https://img.shields.io/badge/last%20change-2023--03--15-brightgreen.svg)](/commits/master)
+[![packageversion](https://img.shields.io/badge/Package%20version-0.6.0-orange.svg)](commits/master)
+[![Last-changedate](https://img.shields.io/badge/last%20change-2024--11--06-brightgreen.svg)](/commits/master)
 [![R-CMD-check](https://github.com/thierrygosselin/assigner/workflows/R-CMD-check/badge.svg)](https://github.com/thierrygosselin/assigner/actions)
 [![macOS](https://github.com/thierrygosselin/assigner/workflows/macOS-latest%20(release)/badge.svg)](https://github.com/thierrygosselin/assigner/actions?workflow=macOS-latest%20(release))
 [![Linux](https://github.com/thierrygosselin/assigner/workflows/check-linux//badge.svg)](https://github.com/thierrygosselin/assigner/actions?workflow=check-linux)