data-raw/mocapr_synthetic_data.R

In steenharsted/mocapr: Functions to import, plot, animate, and analyse motion capture data

mocapr_synthetic_data <- data.frame(
  LH_APR = c(10,10,10, 0,20, 10, 10, 10,  0, 10,  6,  6,  8,  8,   8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8),
  LK_APR = c(10,10,10,10,10,  5,  5, 15,  5,  5, 10,  4, 10,  6,  10, 10, 10, 10, 10, 10,  6,  6,  6,  6,  6,  6,  0,  0,  0,  0,  0,  0),
  LA_APR = c( 0,10,20,10,10,  0,  0, 20,  0, 10,  9,  9,  0,  0,   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  4,  4,  4,  4,  4,  4),
  LH_APU = c(30,30,30,30,30, 20, 20, 20, 20, 20,  5,  5,  2,  2,  25, 15, 10,  8,  6,  2, 25, 15, 10,  8,  6,  2, 25, 15, 10,  8,  6,  2),
  LK_APU = c(10,10,10,10,10, 10, 10, 10, 10, 10, 10, 10, 10, 10,  10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10),
  LA_APU = c( 0, 0, 0, 0, 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  RH_APR = c(20,20,20,10,30, 15, 15, 15, 15, 15, 20, 20, 18, 18,  18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18),
  RK_APR = c(20,20,20,20,20, 10, 20, 20, 10, 20, 15, 22, 15, 20,  16, 16, 16, 16, 16, 16, 20, 20, 20, 20, 20, 20, 26, 26, 26, 26, 26, 26),
  RA_APR = c(10,20,30,20,20,  5, 25, 25, 15, 15, 16, 16, 25, 25,  26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 22, 22, 22, 22, 22, 22),
  RH_APU = c(30,30,30,30,30, 20, 20, 20, 20, 20,  5,  5,  2,  2,  25, 15, 10,  8,  6,  2, 25, 15, 10,  8,  6,  2, 25, 15, 10,  8,  6,  2),
  RK_APU = c(10,10,10,10,10, 10, 10, 10, 10, 10, 10, 10, 10, 10,  10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10),
  RA_APU = c( 0, 0, 0, 0, 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  col_fa = c( 1, 2, 3, 4, 5,  6,  7,  1,  2,  3,  4,  5,  6,  7,   1,  2,  3,  4,  5,  6,  1,  2,  3,  4,  5,  6,  1,  2,  3,  4,  5,  6),
  row_fa = c( 1, 1, 1, 1, 1,  1,  1,  2,  2,  2,  2,  2,  2,  2,   1,  1,  1,  1,  1,  1,  2,  2,  2,  2,  2,  2,  3,  3,  3,  3,  3,  3),
  sample = c( 1, 1, 1, 1, 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,   2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2)) %>%
  dplyr::mutate(   LT_APR = LA_APR,
    LT_APU = LA_APU,
    LS_APR = LH_APR,
    LS_APU = LH_APU+30,
    LE_APR = LS_APR-10,
    LE_APU = LS_APU,
    LW_APR = LE_APR-10,
    LW_APU = LS_APU,
    RT_APR = RA_APR,
    RT_APU = RA_APU,
    RS_APR = RH_APR,
    RS_APU = RH_APU+30,
    RE_APR = RS_APR+10,
    RE_APU = RS_APU,
    RW_APR = RE_APR+10,
    RW_APU = RS_APU,

    # Forward plane
    LH_APF = 0,
    LK_APF = 0,
    LA_APF = 0,
    LT_APF = 0,
    LS_APF = 0,
    LE_APF = 0,
    LW_APF = 0,
    RH_APF = 0,
    RK_APF = 0,
    RA_APF = 0,
    RT_APF = 0,
    RS_APF = 0,
    RE_APF = 0,
    RW_APF = 0,

    frame = row_number())

usethis::use_data(mocapr_synthetic_data, overwrite = TRUE)