Skip to content

feat: Add data SEAD MTG + DLPFC ETL#2

Open
diegomscoelho wants to merge 22 commits into
mainfrom
sead-mtg-dlpfc-subset
Open

feat: Add data SEAD MTG + DLPFC ETL#2
diegomscoelho wants to merge 22 commits into
mainfrom
sead-mtg-dlpfc-subset

Conversation

@diegomscoelho

Copy link
Copy Markdown
Contributor

Description

Adding scripts to subset and extract data from scRNAseq from SEAD project to run our analysis

Test

  1. ...

@diegomscoelho diegomscoelho left a comment

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Here it goes

Comment thread scripts/script_MTG.R
subset_mtg <- MTG_DEM %>%
group_by(Subclass) %>%
filter(n() >= 200) %>%
slice_sample(prop = 1) %>%

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
slice_sample(prop = 1) %>%

Comment thread scripts/script_MTG.R
set.seed(123)

subset_mtg <- MTG_DEM %>%
group_by(Subclass) %>%

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
group_by(Subclass) %>%
group_by(Stage, Subclass) %>%

Comment thread scripts/script_MTG.R
Comment on lines +10 to +12
mutate(Stage = ifelse(Braak %in% c("Braak IV","Braak V","Braak VI"),
"Late Braak",
"Early Braak")) %>%

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
mutate(Stage = ifelse(Braak %in% c("Braak IV","Braak V","Braak VI"),
"Late Braak",
"Early Braak")) %>%

Comment thread scripts/script_MTG.R

#FILTRAR PACIENTES COM DEMENCIA
MTG_DEM = MTG %>%
filter(Cognitive.Status == "Dementia")

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
filter(Cognitive.Status == "Dementia")
filter(Cognitive.Status == "Dementia") %>%
mutate(Stage = ifelse(Braak %in% c("Braak IV","Braak V","Braak VI"),
"Late Braak",
"Early Braak"))

Comment thread scripts/script_MTG.R
group_by(Subclass) %>%
filter(n() >= 200) %>%
slice_sample(prop = 1) %>%
slice_head(n = 1000) %>%

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
slice_head(n = 1000) %>%
slice_head(n = 2000) %>%

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants