predict.test <- function(data){
require(ggplot2)
out <- rnorm(1, mean=0.5, sd = 0.2)
while(out >=0.9 | out <= 0.1){ ## Lazy way to make sure out value is reasonable
out <- rnorm(1, mean=0.5, sd = 0.2)
}
out.ci <- abs(rnorm(1, mean=0.2, sd = 0.2))
ci.low <- max(out-out.ci,0)
ci.high <- min(out+out.ci,1)
varimp <- sample(qids,floor(runif(1, 1,6)))
suggvar <- sample(qids,floor(runif(1, 1,6)))
dist <- rnorm(1000, mean=0.5, sd = 0.2)
dist <- dist[dist>0&dist<1]
breaks <- quantile(dist, probs = seq(0, 1, .2))
colors <- c("#0000FF","#00FF00","#FFFF00","#FFA500","#FF0000")
color = colors[sum(out > breaks)]
par(mar=c(0,0,0,0))
conf <- ((1-out.ci)/1.5)
print(ggplot2::ggplot() + theme_void() + theme(panel.background = element_rect(fill = color)))
print(ggplot2::ggplot() + geom_density(aes(dist), fill = "grey") +
geom_rect(aes(ymin= -Inf, ymax = Inf, xmin = ci.low,xmax = ci.high),alpha = conf, fill = color) +
geom_vline(aes(xintercept = out)) +
theme_void())
return(list(out = out,ci.low = ci.low,ci.high = ci.high, color = color, varimp = varimp,suggvar = suggvar))
}
predict.debug <- function(...){
require(ggplot2)
out <- rnorm(1, mean=0.5, sd = 0.2)
while(out >=0.9 | out <= 0.1){ ## Lazy way to make sure out value is reasonable
out <- rnorm(1, mean=0.5, sd = 0.2)
}
out.ci <- abs(rnorm(1, mean=0.2, sd = 0.2))
ci.low <- max(out-out.ci,0)
ci.high <- min(out+out.ci,1)
varimp <- sample(qids,floor(runif(1, 1,6)))
suggvar <- sample(qids,floor(runif(1, 1,6)))
dist <- rnorm(1000, mean=0.5, sd = 0.2)
dist <- dist[dist>0&dist<1]
breaks <- quantile(dist, probs = seq(0, 1, .2))
colors <- c("#0000FF","#00FF00","#FFFF00","#FFA500","#FF0000")
color = colors[sum(out > breaks)]
par(mar=c(0,0,0,0))
conf <- ((1-out.ci)/1.5)
print(ggplot2::ggplot() + theme_void() + theme(panel.background = element_rect(fill = color)))
print(ggplot2::ggplot() + geom_density(aes(dist), fill = "grey") +
geom_rect(aes(ymin= -Inf, ymax = Inf, xmin = ci.low,xmax = ci.high),alpha = conf, fill = color) +
geom_vline(aes(xintercept = out)) +
theme_void())
return(list(out = out,ci.low = ci.low,ci.high = ci.high, color = color,
varimp = paste("sent:",paste(substitute(...),...,sep = "=")),
suggvar = suggvar))
}
deparse_args <- function(a, ...) {
arg <- deparse(substitute(a))
dots <- substitute(list(...))[-1]
c(arg, sapply(dots, deparse))
}
# Return passed arguments as 400 error
debug <- function(...){
stop(paste(deparse_args(...),"-",...,collapse = "|"))
}
test_preload <- function(){
t <- data.frame(x = rnorm(100)) %>%
mutate(y = x^2)
print(ggplot2::ggplot(t, aes(x=x,y=y))) +
geom_point()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.