View source: R/summary_2rm__main.R
summary.TwoRegression | R Documentation |
Summary method for TwoRegression objects
## S3 method for class 'TwoRegression'
summary(object, ...)
new_summary(object)
new_cut(
z,
object,
element = c("sed_roc", "walkrun_roc"),
label = c("sedentary", "walk_run")
)
new_model(
z,
object,
element = c("walkrun_model", "intermittent_model"),
label = c("walk_run", "intermittent_activity")
)
object |
The TwoRegression object to summarize |
... |
Arguments passed to |
z |
An intermediate summary object for internal use |
element |
character. Element name to search for in |
label |
character. A label for the cut point |
and object of class summary.TwoRegression
, containing
information about the cut-points and diagnostics, regression model
performance, and overall algorithm performance during
leave-one-participant-out-cross-validation.
set.seed(307)
data(all_data, package = "TwoRegression")
all_data$PID <- rep(
c("Test1", "Test2"),
each = ceiling(nrow(all_data) / 2)
)[seq(nrow(all_data))]
fake_sed <- c("Lying", "Sitting")
fake_lpa <- c("Sweeping", "Dusting")
fake_cwr <- c("Walking", "Running")
fake_ila <- c("Tennis", "Basketball")
fake_activities <- c(fake_sed, fake_lpa, fake_cwr, fake_ila)
all_data$Activity <-
sample(fake_activities, nrow(all_data), TRUE)
all_data$fake_METs <-
ifelse(all_data$Activity %in% c(fake_sed, fake_lpa),
runif(nrow(all_data), 1, 2),
runif(nrow(all_data), 2.5, 8)
)
ex_2rm <- fit_2rm(
data = all_data,
activity_var = "Activity",
sed_cp_activities = c(fake_sed, fake_lpa),
sed_activities = fake_sed,
sed_cp_var = "ENMO",
sed_METs = 1.25,
walkrun_activities = fake_cwr,
walkrun_cp_var = "ENMO_CV10s",
met_var = "fake_METs",
walkrun_formula = "fake_METs ~ ENMO",
intermittent_formula = "fake_METs ~ ENMO + I(ENMO^2) + I(ENMO^3)"
)
summary(
ex_2rm,
subject_var = "PID",
MET_var = "fake_METs",
activity_var = "Activity"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.