Skip to content

Instantly share code, notes, and snippets.

BigHungryBelly mrxiaohe

Block or report user

Report or block mrxiaohe

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View aov.mcp.R
aov.mcp<-function(model, pairs=FALSE, method=c("Bonferroni", "Holm", "none", "Tukey",
"Hochberg", "BH", "BY", "fdr"), condition=NULL, pooled.sd=TRUE,
var.equal=FALSE){
r<-paired<-if(sum(names(model)=="(Intercept)")!=0) TRUE else FALSE
if(length(method)>1){
method<-"bonferroni"
} else {
method<-tolower(method)
if(r){
if(!(method %in% c("bonferroni", "holm", "none")))
View server.R
library(shiny)
cnorm <- function(n){
val <- rnorm(n)
uval <- runif(n)
flag <- (uval <= 1 - 0.1)
val[!flag] <- 10 * val[!flag]
val
}
shinyServer(function(input, output){
data <- reactive(function(){
You can’t perform that action at this time.