Skip to content
Snippets Groups Projects

functions generally improved and made packagelike, quicktexregapollo added...

Merged functions generally improved and made packagelike, quicktexregapollo added...
devel into main
Merged dj44vuri requested to merge devel into main
Compare
and
14 files
+ 177
− 40
Compare changes
  • Side-by-side
  • Inline
Files
14
R/apollo_ztest.R
+ 1
− 1
@@ -5,7 +5,7 @@ apollo_ztest <- function(model1, model2, hyp=0){
@@ -5,7 +5,7 @@ apollo_ztest <- function(model1, model2, hyp=0){
comp = data.frame(m1par =model1[["estimate"]] ,m2par = model2[["estimate"]] , m1se=model1[["robse"]] , m2se=model2[["robse"]]) %>%
comp = data.frame(m1par =model1[["estimate"]] ,m2par = model2[["estimate"]] , m1se=model1[["robse"]] , m2se=model2[["robse"]]) %>%
mutate(diffmean=m1par-m2par , error= sqrt(m1se^2+m2se^2) , z= diffmean/error , p_value=2*pnorm(-abs(z)))
dplyr::mutate(diffmean=m1par-m2par , error= sqrt(m1se^2+m2se^2) , z= diffmean/error , p_value=2*stats::pnorm(-abs(z)))
print(comp)
print(comp)