library(lme4)
library(nlme)
library(mlmRev)
library(nycflights13)
# MathAchieve
sd(MathAchieve$MathAch)
model <- lmer(MathAch ~ SES + Minority + Sex + MEANSES + (1 | School), data = MathAchieve)
# MathAchieve
data("MathAchieve")
# MathAchieve
load("MathAchieve")
# MathAchieve
load(MathAchieve)
# Exam
load(Exam)
# MathAchieve
load(MathAchieve)
# MathAchieve
load("MathAchieve")
# MathAchieve
data("MathAchieve")
MathAchieve
sd(MathAchieve$MathAch)
model <- lmer(MathAch ~ SES + Minority + Sex + MEANSES + (1 | School), data = MathAchieve)
# Exam
data("Exam")
sd(Exam$normexam)
model <- lmer(normexam ~ schgend + vr + intake + standLRT + sex + (1 | school), data = Exam)
# GCS
data("Gcsemv")
sd(Gcsemv$written, na.rm=T)
hist(Gcsemv$course)
# hist(Gcsemv$course)
model <- lmer(written ~ gender + course + (1 | school), data = Gcsemv)
# NYC Flights
data("flights")
sd(flights$dep_delay, na.rm=T)
sd(flights$arr_delay, na.rm=T)
model <- lmer(
dep_delay ~ carrier + origin + sched_dep_time + distance + day + (1 | origin), data = flights
)
# Sleep study
data("sleepstudy")
sd(sleepstudy$Reaction, na.rm=T)
model <- lmer(Reaction ~ Days + (Days | Subject), data = sleepstudy)
# MathAchieve
data("MathAchieve")
sd(MathAchieve$MathAch)
model <- lmer(MathAch ~ SES + Minority + Sex + MEANSES + (1 | School), data = MathAchieve)
write.csv(MathAchieve, "math.csv", row.names = FALSE)
# Exam
data("Exam")
source("~/metabeta/metabeta/demos/real/datasets.R")
