@@ -10,16 +10,15 @@ status](https://www.r-pkg.org/badges/version/experDesign)](https://CRAN.R-projec
1010[ ![ CRAN
1111checks] ( https://badges.cranchecks.info/worst/experDesign.svg )] ( https://cran.r-project.org/web/checks/check_results_experDesign.html )
1212[ ![ R-CMD-check] ( https://github.com/llrs/experDesign/actions/workflows/R-CMD-check.yaml/badge.svg )] ( https://github.com/llrs/experDesign/actions/workflows/R-CMD-check.yaml )
13- [ ![ Coverage
14- status ] ( https://codecov.io/gh/llrs/experDesign/branch/master/ graph/badge.svg )] ( https://app.codecov.io/github /llrs/experDesign )
13+ [ ![ Codecov test
14+ coverage ] ( https://codecov.io/gh/llrs/experDesign/graph/badge.svg )] ( https://app.codecov.io/gh /llrs/experDesign )
1515[ ![ Lifecycle:
1616stable] ( https://img.shields.io/badge/lifecycle-stable-brightgreen.svg )] ( https://lifecycle.r-lib.org/articles/stages.html#stable )
1717[ ![ Project Status: Active - The project has reached a stable, usable
1818state and is being actively
1919developed.] ( https://www.repostatus.org/badges/latest/active.svg )] ( https://www.repostatus.org/#active )
2020[ ![ JOSS] ( https://joss.theoj.org/papers/10.21105/joss.03358/status.svg )] ( https://doi.org/10.21105/joss.03358 )
2121[ ![ DOI] ( https://zenodo.org/badge/142569201.svg )] ( https://zenodo.org/badge/latestdoi/142569201 )
22-
2322<!-- badges: end -->
2423
2524The goal of experDesign is to help you distribute your samples before an
@@ -120,9 +119,6 @@ combination with the original according to multiple statistics.
120119omit <- c(" Wr.Hnd" , " NW.Hnd" , " Fold" , " Pulse" , " Clap" , " Exer" , " Height" , " M.I" )
121120(keep <- colnames(survey )[! colnames(survey ) %in% omit ])
122121# > [1] "Sex" "W.Hnd" "Smoke" "Age"
123- ```
124-
125- ``` r
126122head(survey [, keep ])
127123# > Sex W.Hnd Smoke Age
128124# > 1 Female Right Never 18.250
@@ -131,18 +127,12 @@ head(survey[, keep])
131127# > 4 Male Right Never 20.333
132128# > 5 Male Right Never 23.667
133129# > 6 Female Right Never 21.000
134- ```
135-
136- ``` r
137130
138131# Set a seed for reproducibility
139132set.seed(87732135 )
140133# Looking for groups at most of 70 samples.
141134index <- design(pheno = survey , size_subset = 70 , omit = omit , iterations = 100 )
142135# > Warning: There might be some problems with the data use check_data().
143- ```
144-
145- ``` r
146136index
147137# > $SubSet1
148138# > [1] 3 9 10 14 16 21 23 24 25 30 44 46 56 57 59 62 63 68 69
@@ -175,9 +165,6 @@ a colleague with:
175165``` r
176166head(batch_names(index ))
177167# > [1] "SubSet3" "SubSet3" "SubSet1" "SubSet4" "SubSet2" "SubSet2"
178- ```
179-
180- ``` r
181168# Or via inspect() to keep it in a matrix format:
182169head(inspect(index , survey [, keep ]))
183170# > Sex W.Hnd Smoke Age batch
0 commit comments