Nothing
#' Dash Matrix
#' @description Function to obtain the matrix of number of 1-1s, 1-2s, and so on.
#' @param data dataset with competitors as rows and judges as columns
#' @return A matrix:
#' \item{dashmatrix}{matrix of number of placements}
#' @examples
#' dashmatrix(testdata)
#' @export
dashmatrix <- function(data) {
dashmat <- matrix(NA, nrow(data), nrow(data))
for (i in 1:nrow(data)) {
dashmat[i,] <- cumsum(table(factor(data[i,], levels = 1:nrow(data))))
}
dashmat
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.