# NOT RUN {
x = umx_cont_2_quantiles(rnorm(1000), nlevels = 10, verbose = TRUE)
x = data.frame(x)
str(x); levels(x)
table(x)
# }
# NOT RUN {
ggplot2::qplot(x$x)
y = mxDataWLS(x, type = "WLS")
# }
# NOT RUN {
# ===========================
# = Use with twin variables =
# ===========================
x = twinData
y = rbind(x$wt1, x$wt2)
cuts = umx_cont_2_quantiles(y, nlevels = 10, returnCutpoints = TRUE)
x$wt1 = umx_cont_2_quantiles(x$wt1, nlevels = cuts) # use same for both...
x$wt2 = umx_cont_2_quantiles(x$wt2, nlevels = cuts) # use same for both...
str(x[, c("wt1", "wt2")])
# More examples
x = umx_cont_2_quantiles(mtcars[, "mpg"], nlevels = 5) # quintiles
x = umx2ord(mtcars[, "mpg"], nlevels = 5) # using shorter alias
x = umx_cont_2_quantiles(mtcars[, "cyl"], nlevels = 10) # more than integers exist
x = umx_cont_2_quantiles(rbinom(10000, 1, .5), nlevels = 2)
# }
Run the code above in your browser using DataLab