additive snps for easy testing named accordingly (#107)

* additive snps for easy testing named accordingly * google site verification for google search console stats
lcrawlab · Sep 12, 2023 · c05598d · c05598d
1 parent 3547c63
commit c05598d
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/R/simulate_data.R b/R/simulate_data.R
@@ -257,6 +257,10 @@ simulate_traits <- function(
         )
         additive <- bind_rows(additive, trait_additive)
         epistatic_idx <- c(pleiotropic_set, trait_specific_epistatic)
+        additive_idx <- c(pleiotropic_set, trait_specific_additive)
+        colnames(genotype_matrix)[additive_idx] <- paste0(colnames(genotype_matrix[, additive_idx]),
+                                               rep(sprintf(j, fmt = "_p%02dadd"),
+                                               length(additive_idx)))
         colnames(genotype_matrix)[epistatic_idx] <- paste0(colnames(genotype_matrix[, epistatic_idx]),
                                                rep(sprintf(j, fmt = "_p%02depi"),
                                                length(epistatic_idx)))

diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -1,4 +1,9 @@
 url: https://lcrawlab.github.io/mvMAPIT/
+
+template:
+  params:
+    google_site_verification: 7EMmOVQ0-Feh--5i1ogdQqVYz7Azip5Je-UeBYXP6fA
+
 reference:
 - title: "Multivariate MAPIT Analysis"
   desc: >