Removing reference to total in add.Ref

R/hypoAfrica.R

@@ -94,7 +94,7 @@ add.p.values.fisher<-function(df,dfRef,var,timeVar='visitid',nVar='total'){
    pRef<-df[,base::sprintf('%s_ref',var)]
    nRef<-df[,'nRef']
    v<-df[,var]
-   n<-df[,'total']
+   n<-df[,nVar]
    p<-base::rep(0, base::nrow(df))
    for (i in 1:base::nrow(df)){
    	  dat <- base::data.frame(tox = base::c(pRef[i]*nRef[i],v[i]*n[i]),