# NOT RUN {
# =============================
# = Report regression results =
# =============================
umxAPA(lm(mpg ~ wt + disp, mtcars))
umxAPA(lm(mpg ~ wt + disp, mtcars), "disp")
# ===============================================================
# = Generate summary of dataframe: Correlations + Means and SDs =
# ===============================================================
umxAPA(mtcars[,1:3])
umxAPA(mtcars[,1:3], digits = 3)
umxAPA(mtcars[,1:3], lower = FALSE)
umxAPA(mtcars[,1:3], report = "html")
# ===============================================
# = Generate a CI string based on effect and se =
# ===============================================
umxAPA(.4, .3)
# ====================
# = Format a p-value =
# ====================
umxAPA(.0182613)
umxAPA(.000182613)
# ====================
# = Format a p-value =
# ====================
data(twinData)
selDVs = c("wt1", "wt2")
mzData <- subset(twinData, zygosity %in% c("MZFF", "MZMM"))
dzData <- subset(twinData, zygosity %in% c("DZFF", "DZMM", "DZOS"))
x = cor.test(~ wt1 + wt2, data = mzData)
umxAPA(x)
# }
Run the code above in your browser using DataLab