R/getProportionFromModel.R

In ryentes/rdy-dissertation-tools: Utilities used in the execution of my dissertation code

#' A careless responding model object
#' 
#' This function defines a model of careless responder. Objects using this class
#' are initialized with the following parameters
#' 
#' @keywords data model
#' @author Richard D. Yentes \email{ryentes@ncsu.edu}
#' @param m a crModel object
#' @param n the total number of respnodents in the proposed sample
#' @export
getProportionFromModel <- function(m, n) {
  x <- 0
  
  while (x < 1) {
    x <- round(abs(rnorm(1, m$mu,m$sigma)*n))
  }
  
  return(x)
}