cilr <- complr(data = mcompd,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID", total = 1440)
str(cilr)
calr <- complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID",
transform = "alr")
str(calr)
cclr <- complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID",
transform = "clr")
str(cclr)
cilr_wide <- complr(data = mcompd[!duplicated(ID)], sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"))
str(cilr_wide)
Run the code above in your browser using DataLab