Nothing
hsb <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/hsb.csv')
source("strip_env.R")
library(lme4)
library(lattice)
m31 <- lmer(math ~ ses*meanses + (ses | sch.id), data = hsb)
p <- strip_profile(profile(m31))
densityplot(p)
saveRDS(p, file="harmel_profile.rds", version=2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.