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