gen <- importPolarized(
file = system.file("extdata", "data7x10.txt", package = "diemr"),
changePolarity = c(TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE),
ChosenInds = 1:7
)
plotDeFinetti(gen, cols = palette.colors(nrow(gen), "Accent"), pch = 19)
Run the code above in your browser using DataLab