Ph.D topic (and Biometrics journal) topic simulator

topic_gen.R

# https://twitter.com/topepos/status/1024001039278714880

topic_gen <- function(x) {
  require(glue)
  prefix <- c("adaptive", "auto-regressive", "regularized", "multivariate", 
              "semiparametric", "Bayesian", "elastic", "variational", "robust",
              "nonparametric", "flexible", "overdispersed", "latent",
              "interpretable", "dynamic", "interval censored", "novel")
  
  mod <- c("logistic regression", "Cox model", "mixed effects model", 
           "generalized estimating equations model", "accelerated hazards model",
           "spatial regression", "point process model", "copula", 
           "zonal polynomial model", "GWAS meta-analysis"
  )
  
  with <- c("frailty", "competing risks", "ignorable missingness", "p>>>n", 
            "Bernstein polynomials", "surrogate endpoints", 
            "determinantal point processes", "zero-inflated count data")
  
  topic <- paste(
    glue::glue_collapse(sample(prefix, rpois(1, 1) + 1), sep = ", "),
    sample(mod, 1)
  )
  if (grepl("^[aeiou]", tolower(topic)))
    topic <- paste("An", topic)
  else
    topic <- paste("A", topic)
  if (runif(1) > .5
  )
    topic <- paste(topic, "with", sample(with, 1))
  topic
  
}


topic_gen()