fork download 
  1. library(magrittr)
  2. library(data.table)
  3. library(lmerTest)
  4.  
  5. d <-
  6.   fread(
  7.     "x1      x2      x3      x4      y1      y2      y3
  8.     -1      -1      -1      -1      28      27.1    26.2
  9.     -1      -1      1       1       46.3    43.5    46.5
  10.     -1      1       -1      1       21.9    21      20.1
  11.     -1      1       1       -1      52.9    53.7    52
  12.     1       -1      -1      1       75      73.1    74.3
  13.     1       -1      1       -1      127.7   126.9   128.7
  14.     1       1       -1      -1      86.2    86.5    87
  15.     1       1       1       1       195     195.9   195.7"
  16.   ) %>%
  17.   .[, subject := as.character(seq(1, nrow(d)))]
  18. d.melt <-
  19.   melt(d,
  20.        id.vars = c("x1", "x2", "x3", "x4", "subject"),
  21.        value.name = "y")
  22.  
  23. m <- lmer(y ~ x1 + x2 + x3 + x4 + (1 | subject), data = d.melt)
  24. summary(m) %>% print
  25. fixef(m) %>% print
  26. ranef(m) %>% print
  27. resid(m) %>% print
  28.  
Success #stdin #stdout #stderr 0.27s 188800KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Error in library(lmerTest) : there is no package called ‘lmerTest’
Execution halted
https://ideone.com/Se6pP7
language:
R (R 3.5.2)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!