inst/shiny-apps/shinyMer/global.R

# Import variables from function
library(ggplot2)
library(shiny)

merMod <<- .shinyMerPar$merMod
if(is.null(.shinyMerPar$simData)){

} else {
  newdata <<- .shinyMerPar$simData
}

if (!exists("newdata")) {
  df.choices <- c("Model Frame"   = "orig",
                  "Random Obs"    = "rand",
                  "Average Obs"   = "mean")
} else {
  df.choices <- c("User Supplied" = "user",
                  "Model Frame"   = "orig",
                  "Random Obs"    = "rand",
                  "Average Obs"   = "mean")
}

Try the merTools package in your browser

Any scripts or data that you put into this service are public.

merTools documentation built on June 5, 2018, 9:04 a.m.