RNA-Seq con Bioconductor in R
Mary Piper
Bioinformatics Consultant and Trainer

# Sintassi di apply()
apply(data, righe/colonne, funzione_da_applicare)
# Calcolo della media per ciascun gene (ogni riga)
mean_counts <- apply(wt_rawcounts[, 1:3], 1, mean)
# Calcolo della varianza per ciascun gene (ogni riga)
variance_counts <- apply(wt_rawcounts[, 1:3], 1, var)
Traccia la relazione tra media e varianza:
# Crea un data frame con media e varianza per ogni gene
df <- data.frame(mean_counts, variance_counts)
ggplot(df) +
geom_point(aes(x=mean_counts, y=variance_counts)) +
scale_y_log10() +
scale_x_log10() +
xlab("Mean counts per gene") +
ylab("Variance per gene")

$Var$: varianza
$\mu$: media
$\alpha$: dispersione
Formula della dispersione: $Var = \mu + \alpha * \mu^{2}$
Relazione tra media, varianza e dispersione:
$$\uparrow variance \Rightarrow \uparrow dispersion$$
$$\uparrow mean \Rightarrow \downarrow dispersion$$
# Grafico delle stime di dispersione
plotDispEsts(dds_wt)


RNA-Seq con Bioconductor in R