data/hydraulic.R

"hydraulic" <-
structure(list(inputdata = "hydraulicdata.txt", n = 6, subject = list(
    structure(list(subj = 1, k = 24, tau = 2496, caltimes = c(0, 
    327, 452, 459, 465, 572, 849, 903, 1235, 1745, 1855, 1865, 
    1874, 1959, 1986, 2045, 2061, 2069, 2103, 2124, 2276, 2434, 
    2478, 2496), gaptimes = c(0, 327, 125, 7, 6, 107, 277, 54, 
    332, 510, 110, 10, 9, 85, 27, 59, 16, 8, 34, 21, 152, 158, 
    44, 18), intercepts = 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), slopes = c(1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1), lastperrep = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
    12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24), perrepind = c(1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1), effage = c(0, 327, 125, 7, 6, 107, 277, 54, 
    332, 510, 110, 10, 9, 85, 27, 59, 16, 8, 34, 21, 152, 158, 
    44, 18), covariate = structure(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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0), .Dim = c(2, 24)), effagebegin = 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)), .Names = c("subj", 
    "k", "tau", "caltimes", "gaptimes", "intercepts", "slopes", 
    "lastperrep", "perrepind", "effage", "covariate", "effagebegin"
    )), structure(list(subj = 2, k = 26, tau = 3526, caltimes = c(0, 
    637, 677, 1074, 1110, 1164, 1217, 1314, 1377, 1593, 1711, 
    1836, 1861, 1865, 1966, 2150, 2317, 2398, 2444, 2462, 2494, 
    2713, 3118, 3138, 3386, 3526), gaptimes = c(0, 637, 40, 397, 
    36, 54, 53, 97, 63, 216, 118, 125, 25, 4, 101, 184, 167, 
    81, 46, 18, 32, 219, 405, 20, 248, 140), intercepts = 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), slopes = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), lastperrep = c(1, 
    2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
    19, 20, 21, 22, 23, 24, 25, 26), perrepind = c(1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1), effage = c(0, 637, 40, 397, 36, 54, 53, 97, 63, 
    216, 118, 125, 25, 4, 101, 184, 167, 81, 46, 18, 32, 219, 
    405, 20, 248, 140), covariate = structure(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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(2, 26)), effagebegin = 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)), .Names = c("subj", "k", "tau", "caltimes", 
    "gaptimes", "intercepts", "slopes", "lastperrep", "perrepind", 
    "effage", "covariate", "effagebegin")), structure(list(subj = 3, 
        k = 28, tau = 4743, caltimes = c(0, 278, 539, 1529, 1720, 
        1827, 1859, 1910, 1920, 2052, 2228, 2475, 2640, 3094, 
        3236, 3274, 3523, 3735, 3939, 4121, 4237, 4267, 4291, 
        4323, 4361, 4371, 4682, 4743), gaptimes = c(0, 278, 261, 
        990, 191, 107, 32, 51, 10, 132, 176, 247, 165, 454, 142, 
        38, 249, 212, 204, 182, 116, 30, 24, 32, 38, 10, 311, 
        61), intercepts = 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), slopes = c(1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1), lastperrep = c(1, 2, 3, 4, 
        5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 
        20, 21, 22, 23, 24, 25, 26, 27, 28), perrepind = c(1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1), effage = c(0, 278, 261, 990, 
        191, 107, 32, 51, 10, 132, 176, 247, 165, 454, 142, 38, 
        249, 212, 204, 182, 116, 30, 24, 32, 38, 10, 311, 61), 
        covariate = structure(c(1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0), .Dim = c(2, 28)), effagebegin = 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)), .Names = c("subj", "k", 
    "tau", "caltimes", "gaptimes", "intercepts", "slopes", "lastperrep", 
    "perrepind", "effage", "covariate", "effagebegin")), structure(list(
        subj = 4, k = 29, tau = 2913, caltimes = c(0, 353, 449, 
        498, 709, 791, 966, 1045, 1162, 1188, 1192, 1197, 1257, 
        1296, 1331, 1589, 1686, 1745, 1748, 1785, 1793, 2038, 
        2117, 2166, 2197, 2456, 2739, 2889, 2913), gaptimes = c(0, 
        353, 96, 49, 211, 82, 175, 79, 117, 26, 4, 5, 60, 39, 
        35, 258, 97, 59, 3, 37, 8, 245, 79, 49, 31, 259, 283, 
        150, 24), intercepts = 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), slopes = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), lastperrep = c(1, 
        2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
        18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29), perrepind = c(1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1), effage = c(0, 353, 96, 
        49, 211, 82, 175, 79, 117, 26, 4, 5, 60, 39, 35, 258, 
        97, 59, 3, 37, 8, 245, 79, 49, 31, 259, 283, 150, 24), 
        covariate = structure(c(1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), .Dim = c(2, 29)), 
        effagebegin = 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)), .Names = c("subj", 
    "k", "tau", "caltimes", "gaptimes", "intercepts", "slopes", 
    "lastperrep", "perrepind", "effage", "covariate", "effagebegin"
    )), structure(list(subj = 5, k = 27, tau = 3230, caltimes = c(0, 
    401, 437, 455, 614, 955, 1126, 1150, 1500, 1572, 1875, 1909, 
    1954, 2278, 2280, 2350, 2407, 2510, 2521, 2526, 2529, 2673, 
    2753, 2806, 2890, 3108, 3230), gaptimes = c(0, 401, 36, 18, 
    159, 341, 171, 24, 350, 72, 303, 34, 45, 324, 2, 70, 57, 
    103, 11, 5, 3, 144, 80, 53, 84, 218, 122), intercepts = 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), slopes = c(1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), 
        lastperrep = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
        13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 
        27), perrepind = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), effage = c(0, 
        401, 36, 18, 159, 341, 171, 24, 350, 72, 303, 34, 45, 
        324, 2, 70, 57, 103, 11, 5, 3, 144, 80, 53, 84, 218, 
        122), covariate = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 
        0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 
        0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 
        0, 1, 0, 1, 0, 1, 0, 1, 0, 1), .Dim = c(2, 27)), effagebegin = 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)), .Names = c("subj", "k", "tau", 
    "caltimes", "gaptimes", "intercepts", "slopes", "lastperrep", 
    "perrepind", "effage", "covariate", "effagebegin")), structure(list(
        subj = 6, k = 24, tau = 3309, caltimes = c(0, 231, 251, 
        612, 872, 1048, 1064, 1165, 1458, 1463, 1582, 1591, 1671, 
        1783, 1793, 1955, 2045, 2221, 2591, 2681, 2696, 3011, 
        3043, 3309), gaptimes = c(0, 231, 20, 361, 260, 176, 
        16, 101, 293, 5, 119, 9, 80, 112, 10, 162, 90, 176, 370, 
        90, 15, 315, 32, 266), intercepts = 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), slopes = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), lastperrep = c(1, 2, 
        3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
        18, 19, 20, 21, 22, 23, 24), perrepind = c(1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1), effage = c(0, 231, 20, 361, 260, 176, 16, 101, 
        293, 5, 119, 9, 80, 112, 10, 162, 90, 176, 370, 90, 15, 
        315, 32, 266), covariate = structure(c(0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
        1, 0, 1, 0, 1, 0, 1), .Dim = c(2, 24)), effagebegin = 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)), .Names = c("subj", "k", "tau", "caltimes", 
    "gaptimes", "intercepts", "slopes", "lastperrep", "perrepind", 
    "effage", "covariate", "effagebegin")))), .Names = c("inputdata", 
"n", "subject"))
isglobal-brge/gcmrec documentation built on April 24, 2024, 6:11 a.m.