if (FALSE) {
set.seed(342356)
d <- data.frame(
rv1 = rnorm(50),
rv2 = rnorm(50),
rv3 = rnorm(50),
rv4 = rnorm(50),
x = rnorm(50)
)
d$cf<-rowMeans(d[,c("rv1","rv2","rv3","rv4")])
fit<-value_correlation(
data = d, rv = c("rv1","rv2","rv3","rv4"), cf = "cf",
correlate = "x",scale_by_rv = TRUE,
standardize_correlate = TRUE,
sesoi = 0.10
)
round(fit$variability_summary,3)
round(fit$association_summary,3)
}
Run the code above in your browser using DataLab