#' @title onedim_voting
#' @docType data
#' @format This dataset gives an example of a truly one-dimensional voting system \code{
#' onedim_voting <- data.frame(
#' row.names = c("A", "B", "C", "D", "E"),
#' I1 = c(1, 1, 0, 0, 0),
#' I2 = c(1, 1, 1, 0, 0),
#' I3 = c(1, 1, 1, 1, 0),
#' I4 = c(0, 1, 1, 1, 1),
#' I5 = c(1, 1, 1, 1, 1)
#' ) }
"onedim_voting"
#' @title twodim_voting
#' @docType data
#' @format This dataset gives an example of a truly two-dimensional voting system \code{
#' twodim_voting <- data.frame(
#' row.names = c("A", "B", "C", "D", "E", "F", "G"),
#' I1 = c(1, 1, 0, 0, 0, 0, 0),
#' I2 = c(1, 1, 1, 0, 0, 0, 0),
#' I3 = c(0, 0, 1, 1, 0, 0, 1),
#' I4 = c(0, 1, 1, 1, 0, 0, 1),
#' I5 = c(1, 1, 1, 1, 0, 0, 0)
#' ) }
"twodim_voting"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.