fix linting

d4straub · d4straub · commit 88b6cc11bd7a · 2026-07-01T17:19:18.000+02:00
diff --git a/bin/compare_performance.r b/bin/compare_performance.r
@@ -102,10 +102,10 @@ get_stats_abundance <- function(expected_abund,observed_abund,df,sample) {
 			y <- y / sum(y)  # normalize
 			sum(x * log(x / y))
 		}
-		
+
 		# Midpoint distribution
 		m <- (p + q) / 2
-		
+
 		# Jensen-Shannon is the square root of the average of two KL divergences
 		sqrt(0.5 * kl_div(p, m) + 0.5 * kl_div(q, m))
 	}

Original file line number	Diff line number	Diff line change
`@@ -102,10 +102,10 @@ get_stats_abundance <- function(expected_abund,observed_abund,df,sample) {`
`102`	`102`	`y <- y / sum(y) # normalize`
`103`	`103`	`sum(x * log(x / y))`
`104`	`104`	`}`
`105`		`-`
	`105`	`+`
`106`	`106`	`# Midpoint distribution`
`107`	`107`	`m <- (p + q) / 2`
`108`		`-`
	`108`	`+`
`109`	`109`	`# Jensen-Shannon is the square root of the average of two KL divergences`
`110`	`110`	`sqrt(0.5 * kl_div(p, m) + 0.5 * kl_div(q, m))`
`111`	`111`	`}`