minor fix

kcotto · kcotto · commit 78e559b310f0 · 2020-01-05T14:08:32.000-06:00
diff --git a/scripts/compare_junctions_hist_v2.R b/scripts/compare_junctions_hist_v2.R
@@ -216,8 +216,8 @@ a <- function(x){
 }
 
 regtools_data$p_value <- apply(regtools_data, 1, a)
-print("test8")
-
+print("Number of rows in data.table")
+print(length(regtools_data$samples))
 
 paste_commas <- function(v){
    return(paste(v,collapse = ","))

Original file line number	Diff line number	Diff line change
`@@ -216,8 +216,8 @@ a <- function(x){`
`216`	`216`	`}`
`217`	`217`
`218`	`218`	`regtools_data$p_value <- apply(regtools_data, 1, a)`
`219`		`-print("test8")`
`220`		`-`
	`219`	`+print("Number of rows in data.table")`
	`220`	`+print(length(regtools_data$samples))`
`221`	`221`
`222`	`222`	`paste_commas <- function(v){`
`223`	`223`	`return(paste(v,collapse = ","))`