###########samples yet to be sequenced #3mFB_406RR1_1010 SampleName <- rep ("3mFB_406RR1_1010", ncol(data.3mFB_406RR1_1010)) SampleName2 <- rep ("3mFB_406RR1_10", ncol(data.3mFB_406RR1_1010)) Genotype <- rep ("wildtype", ncol(data.3mFB_406RR1_1010)) Genotype2 <- rep ("406RR", ncol(data.3mFB_406RR1_1010)) Age <- rep ("3m", ncol(data.3mFB_406RR1_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_406RR1_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_406RR1_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_406RR1_1010)) sampleinfo3mFB_406RR1_1010 <- data.frame(row.names = colnames(data.3mFB_406RR1_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_406RR1_1010 <- CreateSeuratObject (counts = data.3mFB_406RR1_1010, meta.data = sampleinfo3mFB_406RR1_1010) #3mFB_406RW1_1010 SampleName <- rep ("3mFB_406RW1_1010", ncol(data.3mFB_406RW1_1010)) SampleName2 <- rep ("3mFB_406RW1_10", ncol(data.3mFB_406RW1_1010)) Genotype <- rep ("406RW", ncol(data.3mFB_406RW1_1010)) Genotype2 <- rep ("406RW", ncol(data.3mFB_406RW1_1010)) Age <- rep ("3m", ncol(data.3mFB_406RW1_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_406RW1_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_406RW1_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_406RW1_1010)) sampleinfo3mFB_406RW1_1010 <- data.frame(row.names = colnames(data.3mFB_406RW1_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_406RW1_1010 <- CreateSeuratObject (counts = data.3mFB_406RW1_1010, meta.data = sampleinfo3mFB_406RW1_1010) #3mFB_337VV2_1010 SampleName <- rep ("3mFB_337VV2_1010", ncol(data.3mFB_337VV2_1010)) SampleName2 <- rep ("3mFB_337VV2_10", ncol(data.3mFB_337VV2_1010)) Genotype <- rep ("wildtype", ncol(data.3mFB_337VV2_1010)) Genotype2 <- rep ("337VV", ncol(data.3mFB_337VV2_1010)) Age <- rep ("3m", ncol(data.3mFB_337VV2_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_337VV2_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_337VV2_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_337VV2_1010)) sampleinfo3mFB_337VV2_1010 <- data.frame(row.names = colnames(data.3mFB_337VV2_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_337VV2_1010 <- CreateSeuratObject (counts = data.3mFB_337VV2_1010, meta.data = sampleinfo3mFB_337VV2_1010) #3mFB_337VM2_1010 SampleName <- rep ("3mFB_337VM2_1010", ncol(data.3mFB_337VM2_1010)) SampleName2 <- rep ("3mFB_337VM2_10", ncol(data.3mFB_337VM2_1010)) Genotype <- rep ("337VM", ncol(data.3mFB_337VM2_1010)) Genotype2 <- rep ("337VM", ncol(data.3mFB_337VM2_1010)) Age <- rep ("3m", ncol(data.3mFB_337VM2_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_337VM2_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_337VM2_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_337VM2_1010)) sampleinfo3mFB_337VM2_1010 <- data.frame(row.names = colnames(data.3mFB_337VM2_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_337VM2_1010 <- CreateSeuratObject (counts = data.3mFB_337VM2_1010, meta.data = sampleinfo3mFB_337VM2_1010) #3mFB_337VV3B12_1010 SampleName <- rep ("3mFB_337VV3B12_1010", ncol(data.3mFB_337VV3B12_1010)) SampleName2 <- rep ("3mFB_337VV3B12_10", ncol(data.3mFB_337VV3B12_1010)) Genotype <- rep ("wildtype", ncol(data.3mFB_337VV3B12_1010)) Genotype2 <- rep ("337VV", ncol(data.3mFB_337VV3B12_1010)) Age <- rep ("3m", ncol(data.3mFB_337VV3B12_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_337VV3B12_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_337VV3B12_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_337VV3B12_1010)) sampleinfo3mFB_337VV3B12_1010 <- data.frame(row.names = colnames(data.3mFB_337VV3B12_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_337VV3B12_1010 <- CreateSeuratObject (counts = data.3mFB_337VV3B12_1010, meta.data = sampleinfo3mFB_337VV3B12_1010) #3mFB_337VV3F02_1010 SampleName <- rep ("3mFB_337VV3F02_1010", ncol(data.3mFB_337VV3F02_1010)) SampleName2 <- rep ("3mFB_337VV3F02_10", ncol(data.3mFB_337VV3F02_1010)) Genotype <- rep ("wildtype", ncol(data.3mFB_337VV3F02_1010)) Genotype2 <- rep ("337VV", ncol(data.3mFB_337VV3F02_1010)) Age <- rep ("3m", ncol(data.3mFB_337VV3F02_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_337VV3F02_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_337VV3F02_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_337VV3F02_1010)) sampleinfo3mFB_337VV3F02_1010 <- data.frame(row.names = colnames(data.3mFB_337VV3F02_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_337VV3F02_1010 <- CreateSeuratObject (counts = data.3mFB_337VV3F02_1010, meta.data = sampleinfo3mFB_337VV3F02_1010) #3mFB_337VM3_1010 SampleName <- rep ("3mFB_337VM3_1010", ncol(data.3mFB_337VM3_1010)) SampleName2 <- rep ("3mFB_337VM3_10", ncol(data.3mFB_337VM3_1010)) Genotype <- rep ("337VM", ncol(data.3mFB_337VM3_1010)) Genotype2 <- rep ("337VM", ncol(data.3mFB_337VM3_1010)) Age <- rep ("3m", ncol(data.3mFB_337VM3_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_337VM3_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_337VM3_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_337VM3_1010)) sampleinfo3mFB_337VM3_1010 <- data.frame(row.names = colnames(data.3mFB_337VM3_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_337VM3_1010 <- CreateSeuratObject (counts = data.3mFB_337VM3_1010, meta.data = sampleinfo3mFB_337VM3_1010) #3mFB_406WW1_1010 SampleName <- rep ("3mFB_406WW1_1010", ncol(data.3mFB_406WW1_1010)) SampleName2 <- rep ("3mFB_406WW1_10", ncol(data.3mFB_406WW1_1010)) Genotype <- rep ("406WW", ncol(data.3mFB_406WW1_1010)) Genotype2 <- rep ("406WW", ncol(data.3mFB_406WW1_1010)) Age <- rep ("3m", ncol(data.3mFB_406WW1_1010)) BrainRegion <- rep ("FB", ncol(data.3mFB_406WW1_1010)) BatchReceived <- rep ("10", ncol(data.3mFB_406WW1_1010)) SequencingRun <- rep ("10", ncol(data.3mFB_406WW1_1010)) sampleinfo3mFB_406WW1_1010 <- data.frame(row.names = colnames(data.3mFB_406WW1_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.3mFB_406WW1_1010 <- CreateSeuratObject (counts = data.3mFB_406WW1_1010, meta.data = sampleinfo3mFB_406WW1_1010) #8mFB_406RR1_1010 SampleName <- rep ("8mFB_406RR1_1010", ncol(data.8mFB_406RR1_1010)) SampleName2 <- rep ("8mFB_406RR1_10", ncol(data.8mFB_406RR1_1010)) Genotype <- rep ("wildtype", ncol(data.8mFB_406RR1_1010)) Genotype2 <- rep ("406RR", ncol(data.8mFB_406RR1_1010)) Age <- rep ("8m", ncol(data.8mFB_406RR1_1010)) BrainRegion <- rep ("FB", ncol(data.8mFB_406RR1_1010)) BatchReceived <- rep ("10", ncol(data.8mFB_406RR1_1010)) SequencingRun <- rep ("10", ncol(data.8mFB_406RR1_1010)) sampleinfo8mFB_406RR1_1010 <- data.frame(row.names = colnames(data.8mFB_406RR1_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.8mFB_406RR1_1010 <- CreateSeuratObject (counts = data.8mFB_406RR1_1010, meta.data = sampleinfo8mFB_406RR1_1010) #8mFB_406RW1_1010 SampleName <- rep ("8mFB_406RW1_1010", ncol(data.8mFB_406RW1_1010)) SampleName2 <- rep ("8mFB_406RW1_10", ncol(data.8mFB_406RW1_1010)) Genotype <- rep ("406RW", ncol(data.8mFB_406RW1_1010)) Genotype2 <- rep ("406RW", ncol(data.8mFB_406RW1_1010)) Age <- rep ("8m", ncol(data.8mFB_406RW1_1010)) BrainRegion <- rep ("FB", ncol(data.8mFB_406RW1_1010)) BatchReceived <- rep ("10", ncol(data.8mFB_406RW1_1010)) SequencingRun <- rep ("10", ncol(data.8mFB_406RW1_1010)) sampleinfo8mFB_406RW1_1010 <- data.frame(row.names = colnames(data.8mFB_406RW1_1010), SampleName, SampleName2, Genotype, Genotype2, Age, BatchReceived, SequencingRun) seurat.8mFB_406RW1_1010 <- CreateSeuratObject (counts = data.8mFB_406RW1_1010, meta.data = sampleinfo8mFB_406RW1_1010)