dsparks

CoefficientPlot <- function(models, alpha = 0.05, modelnames = ""){
  # models must be a list()

  Multiplier <- qnorm(1 - alpha / 2)
  CoefficientTables <- lapply(models, function(x){summary(x)$coef})
  TableRows <- unlist(lapply(CoefficientTables, nrow))

  if(modelnames[1] == ""){
    ModelNameLabels <- rep(paste("Model", 1:length(TableRows)), TableRows)
    } else {

dsparks

Projector <- function(st, loopover, iteration){
  Currently <- Sys.time()
  Elapsed <- (Currently - st) * length(loopover)/which(iteration == loopover)
  units(Elapsed) <- "mins"
  return(st + Elapsed * 60)
  }

StartTime <- Sys.time()
for(oo in c(1:50)){
  print(oo)

dsparks

GroupRank <- function(x, group){  unsplit(lapply(split(-x, group), rank), group)  }

dsparks

lineFinder <- function(string, vector){  (1:length(vector))[regexpr(string, vector) != -1]  }

dsparks

makeTable <- function(vector, toregex){  do.call(rbind, strsplit(vector, toregex))  }

dsparks

Pad0 <- function(x, mx=NULL, fill=0) {
  ## pad numeric vars to strings of specified size
  lx <- nchar(as.character(x))
  mx.calc <- max(lx, na.rm=TRUE)
  if (!is.null(mx)) {
    if (mx<mx.calc) {
      stop("number of maxchar is too small")
    }
  } else {
    mx <- mx.calc

dsparks

Reorderer <- function(tofactor, inorder){  factor(tofactor, levels = tofactor[order(inorder)])  }

dsparks

SmoothCoefficientPlot <- function(models, modelnames = "", removeintercept = FALSE){
  # models must be a list()

  Alphas <- seq(1, 99, 2) / 100

  Multiplier <- qnorm(1 - Alphas / 2)
  zzTransparency <<- 1/(length(Multiplier)/4)
  CoefficientTables <- lapply(models, function(x){summary(x)$coef})
  TableRows <- unlist(lapply(CoefficientTables, nrow))

dsparks

spaceTrim <- function(x){  gsub("(^ +)|( +$)", "", x)  }

dsparks

DropTags <- function(x){  gsub("<[^>]*>", " ", x)  }