Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(rater)
## ----show-long-data, echo = FALSE---------------------------------------------
long_data <- data.frame(
item = c(1, 1, 2, 2, 3, 3),
rater = c(1, 2, 1, 2, 1, 2),
rating = c(3, 4, 2, 2, 2, 2)
)
knitr::kable(long_data)
## ----show-wide-data, echo = FALSE---------------------------------------------
wide_data <- data.frame(
rater_1 = c(3, 2, 2),
rater_2 = c(4, 2, 2)
)
knitr::kable(wide_data)
## ----show-grouped-data, echo = FALSE------------------------------------------
grouped_data <- data.frame(
data.frame(
rater_1 = c(3, 2),
rater_2 = c(4, 2),
n = c(1, 2))
)
knitr::kable(grouped_data)
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.