# these data can also be seen in self_confidence, the example data of
# this package
mydata <- input_manual_nested(
construct_name = "Self-Confidence",
test_names = c("DSSEI", "SMTQ", "RSES"),
items_per_test = c(20, 14, 10),
item_names = c(
1, 5, 9, 13, 17, # DSSEI
3, 7, 11, 15, 19, # DSSEI
16, 4, 12, 8, 20, # DSSEI
2, 6, 10, 14, 18, # DSSEI
11, 13, 14, 1, 5, 6, # SMTQ
3, 10, 12, 8, # SMTQ
7, 2, 4, 9, # SMTQ
1, 3, 4, 7, 10, # RSES
2, 5, 6, 8, 9), # RSES
construct_loadings = c(
.5189, .6055, .618, .4074, .4442,
.5203, .2479, .529, .554, .5144,
.3958, .5671, .5559, .4591, .4927,
.3713, .5941, .4903, .5998, .6616,
.4182, .2504, .4094, .3977, .5177, .4603,
.3271, .261, .3614, .4226,
.2076, .3375, .5509, .3495,
.5482, .4627, .4185, .4185, .5319,
.4548, .4773, .4604, .4657, .4986),
test_loadings = c(
.5694, .6794, .6615, .4142, .4584, # DSSEI
.5554, .2165, .5675, .5649, .4752, # DSSEI
.443 , .6517, .6421, .545 , .5266, # DSSEI
.302 , .6067, .5178, .5878, .6572, # DSSEI
.4486, .3282, .4738, .4567, .5986, .5416, # SMTQ
.3602, .2955, .3648, .4814, # SMTQ
.2593, .4053, .61 , .4121, # SMTQ
.6005, .4932, .4476, .5033, .6431, # RSES
.5806, .5907, .6179, .5899, .6559), # RSES
correlation_matrix = matrix(data = c( 1, .73, .62,
.73, 1, .75,
.62, .75, 1),
nrow = 3,
ncol = 3))
mydata
Run the code above in your browser using DataLab