inst/doc/staple_example.R

In stapler: Simultaneous Truth and Performance Level Estimation

## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(stapler)

## ----sim_data, include=FALSE---------------------------------------------
images = staple_example_data()

## ----data----------------------------------------------------------------
library(stapler)
images = staple_example_data()
res = staple(x = images, set_orient = TRUE)
print(names(res))

## ------------------------------------------------------------------------
x = matrix(rbinom(5000, size = 5, prob = 0.5), ncol = 1000)
table(x)
res_mult = staple_multi_mat(x)
ncol(res_mult$probability)
colnames(res_mult$probability)