# generate example data
df <- data.frame(chats = c(2000, 3000, 4000, 3000,
2000, 3000, 4000, 3000), ses = c(100, 200, 150, 180,
100, 200, 150, 180),
Cont_var = c(100, 150, 100, 50,
100, 150, 100, 50),
Cont_var_2 = c(50,200,25,125,
50,200,25,125))
# fit betta()
example_fit <- betta(formula = chats ~ Cont_var + Cont_var_2, ses = ses, data = df)
# construct L for hypothesis that B_cont_var = B_cont_var_2 = 0
L <- rbind(c(0,1,0),
c(0,0,1))
F_test_results <- F_test(example_fit, L, nboot = 100)
Run the code above in your browser using DataLab