View source: R/extract_values.R
extract_values | R Documentation |
Extract values of measures around the time of a sudden gain.
extract_values( data, id_var_name, extract_var_list, sg_session_n_var_name = "sg_session_n", extract_measure_name = "x", start_numbering = 1, add_to_data = TRUE )
data |
A |
id_var_name |
String, specifying the name of the ID variable. |
extract_var_list |
List or vector, specifying the variable names of session to session scores to extract from.
If this is a list, the name of each element will be used when creating new variables.
Note that each element of this list must have the same number of repeated measures as specified in |
sg_session_n_var_name |
String, specifying variable name that contains information about the pregain session number. If the sudden gains data set was created using the suddengains R package, the default argument "sg_session_n" should be used. |
extract_measure_name |
String, if |
start_numbering |
Numeric, set to by default 1.
Change to 0 if a pre-treatment (e.g. baseline assessment) measurement point is included in |
add_to_data |
Logical, if set to |
A wide dataset with values for extract_measure_name
around the sudden gain.
# Create bysg dataset bysg <- create_bysg(data = sgdata, sg_crit1_cutoff = 7, id_var_name = "id", tx_start_var_name = "bdi_s1", tx_end_var_name = "bdi_s12", sg_var_list = c("bdi_s1", "bdi_s2", "bdi_s3", "bdi_s4", "bdi_s5", "bdi_s6", "bdi_s7", "bdi_s8", "bdi_s9", "bdi_s10", "bdi_s11", "bdi_s12"), sg_measure_name = "bdi") # For bysg dataset select "id" and "rq" variables first sgdata_rq <- sgdata %>% dplyr::select(id, rq_s0:rq_s12) # Join them with the sudden gains data set, here "bysg" bysg_rq <- bysg %>% dplyr::left_join(sgdata_rq, by = "id") # Extract "rq" scores around sudden gains on "bdi" in the bysg dataset bysg_rq <- extract_values(data = bysg_rq, id_var_name = "id_sg", extract_var_list = c("rq_s1", "rq_s2", "rq_s3", "rq_s4", "rq_s5", "rq_s6", "rq_s7", "rq_s8", "rq_s9", "rq_s10", "rq_s11", "rq_s12"), extract_measure_name = "rq", add_to_data = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.