Loading the data you need

p.tsne <- readRDS("./Robjects/DataIntegration_p.tsne.rds")
mnn.out <- readRDS("./Robjects/DataIntegration_mnn.out.rds")

Challenge 1

Draw the TSNE for the fastmnn corrected data. Compare it with the uncorrected TSNE, what do you think?

mp.tsne <- plotTSNE(mnn.out, colour_by="SampleName", shape_by = "SampleGroup")
mp.tsne

mp.tsne + facet_wrap(. ~ mnn.out$SampleGroup)

plot_grid(p.tsne,mp.tsne)

```