Load packages
library( "Seurat" )
library( "scater" )
Load data
sce <- readRDS( "/home/idies/workspace/practical_genomics/day1/retina.rds" )
sce <- as.SingleCellExperiment( sce )
Visualize RHO expression
plotUMAP( sce, colour_by="RHO" )
Document software
sessionInfo()
LS0tCnRpdGxlIDogIlBHMjAyMSBTdGFydFIiCmF1dGhvcjogIiIKZGF0ZSAgOiAiMDQgT2N0b2JlciAyMDIxIgpvdXRwdXQ6IAogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDogdHJ1ZQotLS0KCiMgU3VtbWFyeQoKLSBQdWJsaXNoZWQgYXMgW1ZvaWd0IGV0IGFsLiwgMjAxOV0oaHR0cHM6Ly9wdWJtZWQuZ292LzMxMDc1MjI0LykKLSBFeHBsb3JlIHVzaW5nIFtjZWxseGdlbmVdKGh0dHBzOi8vY2VsbHhnZW5lLmN6aXNjaWVuY2UuY29tL2NvbGxlY3Rpb25zLzdlZGVmNzA0LWY2M2EtNDYyYy04NjM2LTRiYzg2YTk0NzJiZCkKLSBEb3dubG9hZCBTZXVyYXQgLnJkcyBvYmplY3QKCiMgTG9hZCBwYWNrYWdlcwoKYGBge3IgbWVzc2FnZT1GQUxTRX0KbGlicmFyeSggIlNldXJhdCIgKQpsaWJyYXJ5KCAic2NhdGVyIiApCmBgYAoKIyBMb2FkIGRhdGEKCmBgYHtyfQpzY2UgPC0gcmVhZFJEUyggIi9ob21lL2lkaWVzL3dvcmtzcGFjZS9wcmFjdGljYWxfZ2Vub21pY3MvZGF5MS9yZXRpbmEucmRzIiApCnNjZSA8LSBhcy5TaW5nbGVDZWxsRXhwZXJpbWVudCggc2NlICkKYGBgCgojIENoZWNrIGRhdGEKCmBgYHtyfQpzY2UKYGBgCgojIFZpc3VhbGl6ZSBSSE8gZXhwcmVzc2lvbgoKYGBge3J9CnBsb3RVTUFQKCBzY2UsIGNvbG91cl9ieT0iUkhPIiApCmBgYAoKIyBEb2N1bWVudCBzb2Z0d2FyZQoKYGBge3J9CnNlc3Npb25JbmZvKCkKYGBgCgo=