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

## ----eval=FALSE---------------------------------------------------------------
# pullCoordsNoCov <- function(df, cov, exp, ...) {
#   n <- nrow(df)
#   df <- as.matrix(df)
#   nc <- ncol(df)
#   coord_mat <- matrix(nrow = n, ncol = nc)
# 
#   for (i in 1:n) {
#     for (j in 1:nc) {
#       coord_mat[i, j] <- as.numeric((df[i, j] - exp$value[j]) / sqrt(cov[j, j]))
#     }
#   }
#   colnames(coord_mat) <- colnames(df)
#   return(coord_mat)
# }
# 
# pandemonium(df, getCoords = list(pull = pullCoordsNoCov, normal = normCoords))