fix bug excluding first confounder

grlloyd · grlloyd · commit de321285a305 · 2019-10-10T15:44:46.000+01:00
diff --git a/R/confounders_clsq_class.R b/R/confounders_clsq_class.R
@@ -285,10 +285,10 @@ setMethod(f="chart.plot",
     {
 
         A=data.frame('percent_change'=double(),'group'=character())
-        for (i in 2:length(dobj$confounding_factors)) {
+        for (i in 1:length(dobj$confounding_factors)) {
             q=data.frame('percent_change'=double(nrow(dobj$percent_change)),'group'=character(nrow(dobj$percent_change)))
-            q$percent_change=dobj$percent_change[,i]*100
-            q$group=colnames(dobj$percent_change)[i]
+            q$percent_change=dobj$percent_change[,i+1]*100
+            q$group=colnames(dobj$percent_change)[i+1]
             colnames(q)=c('percent_change','group')
             A=rbind(A,q)
         }

Original file line number	Diff line number	Diff line change
`@@ -285,10 +285,10 @@ setMethod(f="chart.plot",`
`285`	`285`	`{`
`286`	`286`
`287`	`287`	`A=data.frame('percent_change'=double(),'group'=character())`
`288`		`- for (i in 2:length(dobj$confounding_factors)) {`
	`288`	`+ for (i in 1:length(dobj$confounding_factors)) {`
`289`	`289`	`q=data.frame('percent_change'=double(nrow(dobj$percent_change)),'group'=character(nrow(dobj$percent_change)))`
`290`		`- q$percent_change=dobj$percent_change[,i]*100`
`291`		`- q$group=colnames(dobj$percent_change)[i]`
	`290`	`+ q$percent_change=dobj$percent_change[,i+1]*100`
	`291`	`+ q$group=colnames(dobj$percent_change)[i+1]`
`292`	`292`	`colnames(q)=c('percent_change','group')`
`293`	`293`	`A=rbind(A,q)`
`294`	`294`	`}`