x1 <- complr(data = mcompd,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID", total = 1440)
str(x1)
x2 <- complr(data = mcompd,
parts = list(c("TST", "WAKE"), c("MVPA", "LPA", "SB")),
total = list(c(480), c(960)),
idvar = "ID",
transform = "ilr")
str(x2)
x3 <- complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID",
transform = "ilr")
str(x3)
x_wide <- complr(data = mcompd[!duplicated(ID)], sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"))
str(x_wide)
Run the code above in your browser using DataLab