R/test-aux.R

In plot3logit: Ternary Plots for Trinomial Regression Models

# Generate a random "field3logit" object from matrix
test_rfield3logit <- function(delta = NULL, vcov = FALSE) {
  if (is.null(delta)) {
    k <- sample(2:9, 1)
    delta <- versor(sample(2:k, 1), k)	
  } else {
  	k <- length(delta)
  }
  
  if (is.logical(vcov)) {
  	if (vcov) {
  	  matrix(stats::rnorm(4 * k^2), 2 * k, 2 * k) %>%
  	    crossprod -> vcov
  	} else { vcov <- NULL }
  }
  
  M <- matrix(stats::rnorm(2 * k), k, 2)
  rownames(M) <- paste0('X', 0:(k - 1))
  
  model <- list(
    B = M,
    vcovB = vcov,
  	levels = c('Class A', 'Class B', 'Class C')
  )
  
  field3logit(model, delta)
}



# Generate random strings
test_rstring <- function(n, m, set = c(LETTERS[1:26], letters[1:26], 0:9)) {
  matrix(sample(set, n * m, TRUE), n, m) %>%
    apply(1, paste0, collapse = '') %>%
    return()
}