andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-22 11:50:23 +01:00
Code Issues Projects Releases Wiki Activity

fix?

Browse Source
This commit is contained in:
agdamsbo 2018-10-03 10:32:10 +02:00
parent c17b8add39
commit 2208858821
4 changed files with 63 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R/cie_test.R
View File

@ -160,6 +160,6 @@ df<-cbind(df,t)
t<-c(NA,ifelse(abs(e-as.numeric(df[-1,2]))>=(e*cut),"include","drop")) t<-c(NA,ifelse(abs(e-as.numeric(df[-1,2]))>=(e*cut),"include","drop"))
df<-cbind(df,t) df<-cbind(df,t)
}} }}
result<-df
return(df) return(df)
} }

2
R/rep_biv.R
View File

@ -34,5 +34,5 @@ if (me=="pval"&log==TRUE){
if (method=="cie"){ if (method=="cie"){
daDoctoR::cie_test(y=a,v1=b,string=s,data=dat,logistic=log,cut=ct) daDoctoR::cie_test(y=a,v1=b,string=s,data=dat,logistic=log,cut=ct)
} }
return(df) return(result)
} }

2
R/rep_glm.R
View File

@ -86,6 +86,6 @@ if (!is.factor(y)){stop("Some kind of error message would be nice, but y should
df<-rbind(df,cbind(pred,b,pv,t)) df<-rbind(df,cbind(pred,b,pv,t))
}} }}
result<-df
return(df) return(df)
} }

2
R/rep_lm.R
View File

@ -84,6 +84,6 @@ if (is.factor(y)){stop("Some kind of error message would be nice, but y should n
df<-rbind(df,cbind(pred,b,pv,t)) df<-rbind(df,cbind(pred,b,pv,t))
}} }}
result<-df
return(df) return(df)
} }