diff --git a/NF-downstream_analysis/bin/lmx1a_dea.R b/NF-downstream_analysis/bin/lmx1a_dea.R index 4b6f627..2d4eb49 100644 --- a/NF-downstream_analysis/bin/lmx1a_dea.R +++ b/NF-downstream_analysis/bin/lmx1a_dea.R @@ -272,7 +272,10 @@ graphics.off() # Get biomart GO annotations for TFs ######### -ensembl = useMart("ensembl",dataset="ggallus_gene_ensembl") +ensembl <- useEnsembl(biomart = 'ensembl', + dataset = 'ggallus_gene_ensembl', + version = 104) + TF_subset <- getBM(attributes=c("ensembl_gene_id", "go_id", "name_1006", "namespace_1003"), filters = 'ensembl_gene_id', values = rownames(res_sub), diff --git a/NF-downstream_analysis/bin/sox8_dea.R b/NF-downstream_analysis/bin/sox8_dea.R index cf1674b..ed94c90 100644 --- a/NF-downstream_analysis/bin/sox8_dea.R +++ b/NF-downstream_analysis/bin/sox8_dea.R @@ -277,12 +277,15 @@ pheatmap(assay(rld)[rownames(res_sub),], color = colorRampPalette(c("#191d73", " main = "Sox8OE vs Control differentially expressed genes (log2FC > 1.5 and padj (FDR) < 0.05)", border_color = NA, cellheight = 1.5, cellwidth = 75) graphics.off() - ######### # Get biomart GO annotations for TFs ######### -ensembl = useMart("ensembl",dataset="ggallus_gene_ensembl") +# Get biomart ids for specific genome version +ensembl <- useEnsembl(biomart = 'ensembl', + dataset = 'ggallus_gene_ensembl', + version = 104) + TF_subset <- getBM(attributes=c("ensembl_gene_id", "go_id", "name_1006", "namespace_1003"), filters = 'ensembl_gene_id', values = rownames(res_sub), @@ -293,7 +296,6 @@ TF_subset <- TF_subset$ensembl_gene_id[TF_subset$go_id %in% c('GO:0003700', 'GO: res_sub_TF <- res_sub[rownames(res_sub) %in% TF_subset,] - ############################################################## ## Save CSV for differentially expressed transcription factors ############################################################## diff --git a/docs/_downstream/lmx1a_downstream.md b/docs/_downstream/lmx1a_downstream.md index 260d489..beb5111 100644 --- a/docs/_downstream/lmx1a_downstream.md +++ b/docs/_downstream/lmx1a_downstream.md @@ -417,7 +417,10 @@ Subset differentially expressed transcription factors based on GO terms ('GO:000 ```R # Get biomart GO annotations for TFs -ensembl = useMart("ensembl",dataset="ggallus_gene_ensembl") +ensembl <- useEnsembl(biomart = 'ensembl', + dataset = 'ggallus_gene_ensembl', + version = 104) + TF_subset <- getBM(attributes=c("ensembl_gene_id", "go_id", "name_1006", "namespace_1003"), filters = 'ensembl_gene_id', values = rownames(res_sub), diff --git a/docs/_downstream/sox8_downstream.md b/docs/_downstream/sox8_downstream.md index 84cf071..16aa252 100644 --- a/docs/_downstream/sox8_downstream.md +++ b/docs/_downstream/sox8_downstream.md @@ -426,7 +426,10 @@ Subset differentially expressed transcription factors based on GO terms ('GO:000 ```R # Get biomart GO annotations for TFs -ensembl = useMart("ensembl",dataset="ggallus_gene_ensembl") +ensembl <- useEnsembl(biomart = 'ensembl', + dataset = 'ggallus_gene_ensembl', + version = 104) + TF_subset <- getBM(attributes=c("ensembl_gene_id", "go_id", "name_1006", "namespace_1003"), filters = 'ensembl_gene_id', values = rownames(res_sub),