block_info <- data.frame(
block = rep(1:4, each = 3),
items = c("i1", "i2", "i3", "i4", "i5", "i6",
"i7", "i8", "i9", "i10", "i11", "i12"),
traits = rep(c("t1", "t2", "t3"), times = 4),
signs = c(1, 1, 1, -1, 1, 1, 1, 1, -1, 1, -1, 1)
)
blocks <- set_blocks_from_df(
data = block_info,
blocks = "block",
items = "items",
traits = "traits",
signs = "signs"
)
Run the code above in your browser using DataLab