Skip to content

Commit c88f6c6

Browse files
abichatabichat
committed
v0.0.1
1 parent 3b1694e commit c88f6c6

File tree

3 files changed

+50
-50
lines changed

3 files changed

+50
-50
lines changed

‎DESCRIPTION

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Package: scimo
22
Title: Extra Recipes Steps For Dealing With Omics Data
3-
Version: 0.0.0.9000
3+
Version: 0.0.1
44
Authors@R: c(
55
person("Antoine", "BICHAT", , "[email protected]", role = c("aut", "cre"),
66
comment = c(ORCID = "0000-0001-6599-7081")),

‎NEWS.md

+3-1
Original file line numberDiff line numberDiff line change
@@ -1 +1,3 @@
1-
# scimo 0.0.0.9000
1+
# scimo 0.0.1
2+
3+
* First release of **scimo**.

‎README.md

+46-48
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@
66
<!-- badges: start -->
77

88
[![experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
9-
[![packageversion](https://img.shields.io/badge/version-0.0.0.9000-orange.svg)](commits/master)
9+
[![packageversion](https://img.shields.io/badge/version-0.0.1-orange.svg)](commits/master)
1010
[![R-CMD-check](https://github.com/abichat/scimo/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/abichat/scimo/actions/workflows/R-CMD-check.yaml)
1111
<!-- badges: end -->
1212

@@ -34,37 +34,37 @@ data("cheese_abundance", "cheese_taxonomy")
3434

3535
cheese_abundance
3636
#> # A tibble: 9 × 77
37-
#> sample cheese rind_type asv_01 asv_02 asv_03 asv_04 asv_05 asv_06 asv_07
38-
#> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
39-
#> 1 sample1-1 Saint-Ne… Natural 1 0 38 40 1 2 31
40-
#> 2 sample1-2 Saint-Ne… Natural 3 4 38 61 4 4 48
41-
#> 3 sample1-3 Saint-Ne… Natural 28 16 33 23 31 29 21
42-
#> 4 sample2-1 Livarot Washed 0 2 1 0 5 1 0
43-
#> 5 sample2-2 Livarot Washed 0 0 4 0 1 1 2
44-
#> 6 sample2-3 Livarot Washed 0 1 2 0 2 1 0
45-
#> 7 sample3-1 Epoisses Washed 4 2 3 0 2 5 0
46-
#> 8 sample3-2 Epoisses Washed 0 0 0 0 0 0 0
47-
#> 9 sample3-3 Epoisses Washed 0 0 1 0 0 0 2
48-
#> # ℹ 67 more variables: asv_08 <dbl>, asv_09 <dbl>, asv_10 <dbl>, asv_11 <dbl>,
49-
#> # asv_12 <dbl>, asv_13 <dbl>, asv_14 <dbl>, asv_15 <dbl>, asv_16 <dbl>,
50-
#> # asv_17 <dbl>, asv_18 <dbl>, asv_19 <dbl>, asv_20 <dbl>, asv_21 <dbl>,
51-
#> # asv_22 <dbl>, asv_23 <dbl>, asv_24 <dbl>, asv_25 <dbl>, asv_26 <dbl>,
52-
#> # asv_27 <dbl>, asv_28 <dbl>, asv_29 <dbl>, asv_30 <dbl>, asv_31 <dbl>,
53-
#> # asv_32 <dbl>, asv_33 <dbl>, asv_34 <dbl>, asv_35 <dbl>, asv_36 <dbl>,
54-
#> # asv_37 <dbl>, asv_38 <dbl>, asv_39 <dbl>, asv_40 <dbl>, asv_41 <dbl>, …
37+
#> sample cheese rind_type asv_01 asv_02 asv_03 asv_04 asv_05 asv_06 asv_07 asv_08 asv_09 asv_10 asv_11 asv_12 asv_13 asv_14 asv_15 asv_16
38+
#> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
39+
#> 1 sample1-1 Saint-Ne… Natural 1 0 38 40 1 2 31 8 15 20076 160 92 64 24 51 0
40+
#> 2 sample1-2 Saint-Ne… Natural 3 4 38 61 4 4 48 14 20 32101 403 143 165 39 104 1
41+
#> 3 sample1-3 Saint-Ne… Natural 28 16 33 23 31 29 21 1 7 12921 134 53 55 16 45 2
42+
#> 4 sample2-1 Livarot Washed 0 2 1 0 5 1 0 0 0 7823 2 0 0 42 0 2
43+
#> 5 sample2-2 Livarot Washed 0 0 4 0 1 1 2 0 0 6740 4 1 0 45 0 1
44+
#> 6 sample2-3 Livarot Washed 0 1 2 0 2 1 0 0 0 7484 6 1 0 43 0 7
45+
#> 7 sample3-1 Epoisses Washed 4 2 3 0 2 5 0 0 0 2486 1 1 1 23 0 24
46+
#> 8 sample3-2 Epoisses Washed 0 0 0 0 0 0 0 0 0 3686 2 0 0 28 0 54
47+
#> 9 sample3-3 Epoisses Washed 0 0 1 0 0 0 2 0 0 2988 2 1 0 22 0 36
48+
#> # ℹ 58 more variables: asv_17 <dbl>, asv_18 <dbl>, asv_19 <dbl>, asv_20 <dbl>, asv_21 <dbl>, asv_22 <dbl>, asv_23 <dbl>, asv_24 <dbl>,
49+
#> # asv_25 <dbl>, asv_26 <dbl>, asv_27 <dbl>, asv_28 <dbl>, asv_29 <dbl>, asv_30 <dbl>, asv_31 <dbl>, asv_32 <dbl>, asv_33 <dbl>,
50+
#> # asv_34 <dbl>, asv_35 <dbl>, asv_36 <dbl>, asv_37 <dbl>, asv_38 <dbl>, asv_39 <dbl>, asv_40 <dbl>, asv_41 <dbl>, asv_42 <dbl>,
51+
#> # asv_43 <dbl>, asv_44 <dbl>, asv_45 <dbl>, asv_46 <dbl>, asv_47 <dbl>, asv_48 <dbl>, asv_49 <dbl>, asv_50 <dbl>, asv_51 <dbl>,
52+
#> # asv_52 <dbl>, asv_53 <dbl>, asv_54 <dbl>, asv_55 <dbl>, asv_56 <dbl>, asv_57 <dbl>, asv_58 <dbl>, asv_59 <dbl>, asv_60 <dbl>,
53+
#> # asv_61 <dbl>, asv_62 <dbl>, asv_63 <dbl>, asv_64 <dbl>, asv_65 <dbl>, asv_66 <dbl>, asv_67 <dbl>, asv_68 <dbl>, asv_69 <dbl>,
54+
#> # asv_70 <dbl>, asv_71 <dbl>, asv_72 <dbl>, asv_73 <dbl>, asv_74 <dbl>
5555

5656
glimpse(cheese_taxonomy)
5757
#> Rows: 74
5858
#> Columns: 9
59-
#> $ asv <chr> "asv_01", "asv_02", "asv_03", "asv_04", "asv_05", "asv_06", "a…
60-
#> $ lineage <chr> "k__Fungi|p__Ascomycota|c__Dothideomycetes|o__Dothideales|f__D…
61-
#> $ kingdom <chr> "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi",…
62-
#> $ phylum <chr> "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota", "Ascom…
63-
#> $ class <chr> "Dothideomycetes", "Eurotiomycetes", "Eurotiomycetes", "Euroti…
64-
#> $ order <chr> "Dothideales", "Eurotiales", "Eurotiales", "Eurotiales", "Euro…
65-
#> $ family <chr> "Dothioraceae", "Aspergillaceae", "Aspergillaceae", "Aspergill…
66-
#> $ genus <chr> "Aureobasidium", "Aspergillus", "Penicillium", "Penicillium", …
67-
#> $ species <chr> "Aureobasidium Group pullulans", "Aspergillus fumigatus", "Pen…
59+
#> $ asv <chr> "asv_01", "asv_02", "asv_03", "asv_04", "asv_05", "asv_06", "asv_07", "asv_08", "asv_09", "asv_10", "asv_11", "asv_12", "asv_…
60+
#> $ lineage <chr> "k__Fungi|p__Ascomycota|c__Dothideomycetes|o__Dothideales|f__Dothioraceae|g__Aureobasidium|s__Aureobasidium_Group_pullulans",…
61+
#> $ kingdom <chr> "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi", "Fungi",…
62+
#> $ phylum <chr> "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota", "Ascomycota",…
63+
#> $ class <chr> "Dothideomycetes", "Eurotiomycetes", "Eurotiomycetes", "Eurotiomycetes", "Eurotiomycetes", "Eurotiomycetes", "Eurotiomycetes"…
64+
#> $ order <chr> "Dothideales", "Eurotiales", "Eurotiales", "Eurotiales", "Eurotiales", "Eurotiales", "Eurotiales", "Eurotiales", "Eurotiales"…
65+
#> $ family <chr> "Dothioraceae", "Aspergillaceae", "Aspergillaceae", "Aspergillaceae", "Aspergillaceae", "Aspergillaceae", "Aspergillaceae", "…
66+
#> $ genus <chr> "Aureobasidium", "Aspergillus", "Penicillium", "Penicillium", "Penicillium", "Penicillium", "Penicillium", "Penicillium", "Pe…
67+
#> $ species <chr> "Aureobasidium Group pullulans", "Aspergillus fumigatus", "Penicillium Group camemberti caseifulvum fuscoglaucum commune", "P…
6868
```
6969

7070
``` r
@@ -74,8 +74,7 @@ head(list_family, 2)
7474
#> [1] "asv_02" "asv_03" "asv_04" "asv_05" "asv_06" "asv_07" "asv_08" "asv_09"
7575
#>
7676
#> $Debaryomycetaceae
77-
#> [1] "asv_10" "asv_11" "asv_12" "asv_13" "asv_14" "asv_15" "asv_16" "asv_17"
78-
#> [9] "asv_18" "asv_19" "asv_20" "asv_21" "asv_22"
77+
#> [1] "asv_10" "asv_11" "asv_12" "asv_13" "asv_14" "asv_15" "asv_16" "asv_17" "asv_18" "asv_19" "asv_20" "asv_21" "asv_22"
7978
```
8079

8180
The following recipe will
@@ -98,7 +97,7 @@ rec <-
9897

9998
rec
10099
#>
101-
#> ── Recipe ──────────────────────────────────────────────────────────────────────
100+
#> ── Recipe ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
102101
#>
103102
#> ── Inputs
104103
#> Number of variables by role
@@ -109,25 +108,24 @@ rec
109108
#> Training data contained 9 data points and no incomplete rows.
110109
#>
111110
#> ── Operations
112-
#> • Aggregation of: asv_01, asv_02, asv_03, asv_04, asv_05, ... | Trained
113-
#> • TSS normalization on: Aspergillaceae and Debaryomycetaceae, ... | Trained
114-
#> • Kruskal filtering against cheese on: Aspergillaceae, ... | Trained
111+
#> • Aggregation of: asv_01, asv_02, asv_03, asv_04, asv_05, asv_06, asv_07, asv_08, asv_09, asv_10, asv_11, asv_12, asv_13, ... | Trained
112+
#> • TSS normalization on: Aspergillaceae, Debaryomycetaceae, Dipodascaceae, Dothioraceae, Lichtheimiaceae, Metschnikowiaceae, ... | Trained
113+
#> • Kruskal filtering against cheese on: Aspergillaceae, Debaryomycetaceae, Dipodascaceae, Dothioraceae, Lichtheimiaceae, ... | Trained
115114

116115
juice(rec)
117116
#> # A tibble: 9 × 8
118-
#> sample rind_type cheese Debaryomycetaceae Dipodascaceae Saccharomycetaceae
119-
#> <fct> <fct> <fct> <dbl> <dbl> <dbl>
120-
#> 1 sample1-1 Natural Saint-… 0.719 0.0684 0.113
121-
#> 2 sample1-2 Natural Saint-… 0.715 0.0725 0.119
122-
#> 3 sample1-3 Natural Saint-… 0.547 0.277 0.0938
123-
#> 4 sample2-1 Washed Livarot 0.153 0.845 0.000854
124-
#> 5 sample2-2 Washed Livarot 0.150 0.848 0.00106
125-
#> 6 sample2-3 Washed Livarot 0.160 0.837 0.00108
126-
#> 7 sample3-1 Washed Epoiss… 0.0513 0.944 0.00327
127-
#> 8 sample3-2 Washed Epoiss… 0.0558 0.941 0.00321
128-
#> 9 sample3-3 Washed Epoiss… 0.0547 0.942 0.00329
129-
#> # ℹ 2 more variables: `Saccharomycetales fam Incertae sedis` <dbl>,
130-
#> # Trichosporonaceae <dbl>
117+
#> sample rind_type cheese Debaryomycetaceae Dipodascaceae Saccharomycetaceae Saccharomycetales fam Incertae sedi…¹ Trichosporonaceae
118+
#> <fct> <fct> <fct> <dbl> <dbl> <dbl> <dbl> <dbl>
119+
#> 1 sample1-1 Natural Saint-Nectaire 0.719 0.0684 0.113 0.00130 0.000702
120+
#> 2 sample1-2 Natural Saint-Nectaire 0.715 0.0725 0.119 0.000801 0.000628
121+
#> 3 sample1-3 Natural Saint-Nectaire 0.547 0.277 0.0938 0.000289 0.00239
122+
#> 4 sample2-1 Washed Livarot 0.153 0.845 0.000854 0 0.000349
123+
#> 5 sample2-2 Washed Livarot 0.150 0.848 0.00106 0 0.000176
124+
#> 6 sample2-3 Washed Livarot 0.160 0.837 0.00108 0 0.000212
125+
#> 7 sample3-1 Washed Epoisses 0.0513 0.944 0.00327 0 0.000140
126+
#> 8 sample3-2 Washed Epoisses 0.0558 0.941 0.00321 0 0.000176
127+
#> 9 sample3-3 Washed Epoisses 0.0547 0.942 0.00329 0 0.000125
128+
#> # ℹ abbreviated name: ¹​`Saccharomycetales fam Incertae sedis`
131129
```
132130

133131
To see which variables are kept and the associated p-values, you can use
@@ -177,7 +175,7 @@ recipe(pedcan_expression) %>%
177175
update_role(-disease, new_role = "predictor") %>%
178176
step_select_cv(all_numeric_predictors(), prop_kept = 0.1)
179177
#>
180-
#> ── Recipe ──────────────────────────────────────────────────────────────────────
178+
#> ── Recipe ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
181179
#>
182180
#> ── Inputs
183181
#> Number of variables by role

0 commit comments

Comments
 (0)