Fix another typo

bbimber · bbimber · commit ff90f9aaef7b · 2022-02-03T06:35:57.000-08:00
diff --git a/singlecell/resources/chunks/SeuratPrototype.R b/singlecell/resources/chunks/SeuratPrototype.R
@@ -21,7 +21,7 @@ for (datasetId in names(seuratObjects)) {
     fractionFailedHashing <- 1 - (sum(seuratObj@meta.data$HTO.Classification %in% c('Singlet', 'Doublet')) / nrow(seuratObj@meta.data))
     metricData <- rbind(metricData, data.frame(dataId = datasetId, readsetId = datasetIdToReadset[[datasetId]], metricname = 'FractionFailedHashing', metricvalue = fractionFailedHashing))
 
-    fractionDiscordantHashing <- 1 - (sum(seuratObj@meta.data$HTO.Classification == 'Discordant') / nrow(seuratObj@meta.data))
+    fractionDiscordantHashing <- sum(seuratObj@meta.data$HTO.Classification == 'Discordant') / nrow(seuratObj@meta.data)
     metricData <- rbind(metricData, data.frame(dataId = datasetId, readsetId = datasetIdToReadset[[datasetId]], metricname = 'FractionDiscordantHashing', metricvalue = fractionDiscordantHashing))
   }
 

Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@ for (datasetId in names(seuratObjects)) {`
`21`	`21`	`fractionFailedHashing <- 1 - (sum(seuratObj@meta.data$HTO.Classification %in% c('Singlet', 'Doublet')) / nrow(seuratObj@meta.data))`
`22`	`22`	`metricData <- rbind(metricData, data.frame(dataId = datasetId, readsetId = datasetIdToReadset[[datasetId]], metricname = 'FractionFailedHashing', metricvalue = fractionFailedHashing))`
`23`	`23`
`24`		`- fractionDiscordantHashing <- 1 - (sum(seuratObj@meta.data$HTO.Classification == 'Discordant') / nrow(seuratObj@meta.data))`
	`24`	`+ fractionDiscordantHashing <- sum(seuratObj@meta.data$HTO.Classification == 'Discordant') / nrow(seuratObj@meta.data)`
`25`	`25`	`metricData <- rbind(metricData, data.frame(dataId = datasetId, readsetId = datasetIdToReadset[[datasetId]], metricname = 'FractionDiscordantHashing', metricvalue = fractionDiscordantHashing))`
`26`	`26`	`}`
`27`	`27`