# Import sample data:
sl4_data <- load_sl4x(system.file("extdata", "TAR10.sl4", package = "HARplus"))
# Extract multiple variables
data_multiple <- get_data_by_var(c("qo", "qxs"), sl4_data)
# Pivot a single column
pivoted_data <- pivot_data(data_multiple, pivot_cols = "REG")
# Pivot multiple columns
pivoted_data_multi <- pivot_data(data_multiple, pivot_cols = c("REG", "COMM"))
Run the code above in your browser using DataLab