经管之家送您一份
应届毕业生专属福利!
求职就业群
感谢您参与论坛问题回答
经管之家送您两个论坛币!
+2 论坛币
First, I created the below dataset:
allData = structure(list(C = structure(c(1L, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = "C", class = "factor"),
TRL = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L), ID = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), DOSE = c(50, 50,
50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,
50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,
50), SDAY = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 30, 30, 30,
30, 30, 30, 30, 30, 30, 30, 30, 60, 60, 60, 60, 60, 60, 60,
60, 60, 60, 60), TIME = c(0, 0, 1, 2, 3, 4, 5, 6, 8, 10,
24, 0, 0, 1, 2, 3, 4, 5, 6, 8, 10, 24, 0, 0, 1, 2, 3, 4,
5, 6, 8, 10, 24), GEN = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), GROUP = c(0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L), TSFD = c(0, 0, 1, 2, 3, 4, 5, 6, 8, 10, 24, 696, 696,
697, 698, 699, 700, 701, 702, 704, 706, 720, 1416, 1416,
1417, 1418, 1419, 1420, 1421, 1422, 1424, 1426, 1440), OBS = 1:33,
CL = c(33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554), V = c(320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579
), KA = c(0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293),
KEL = c(0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526),
conc = c(0, 0, 92.647083382467, 117.587164906218, 118.435668936488,
111.21996697943, 101.779709034282, 92.1974188524962, 74.9088584827009,
60.6595346538829, 13.7868848267872, 14.9672371118036, 14.9672371118036,
106.111200764071, 129.699116863709, 129.331249838855, 121.021333729664,
110.59675064338, 100.128988471021, 81.3273303362704, 65.8535609206108,
14.9672371118036, 14.9672371118036, 14.9672371118036, 106.111200764071,
129.699116863709, 129.331249838855, 121.021333729664, 110.59675064338,
100.128988471021, 81.3273303362704, 65.8535609206108, 14.9672371118036
), obs = c(0, 0, 93.0705373080666, 119.158931115447, 101.119131737192,
98.3850237974117, 93.3146423825588, 94.4074655857413, 85.4798011942845,
64.3246842238628, 12.3877936201801, 12.9611327916651, 12.9611327916651,
94.4599756673357, 128.418170457443, 127.880610571531, 112.014925161075,
117.557276099122, 119.781561548053, 78.4235789891384, 61.6785269162022,
13.3827881024542, 15.3454182191101, 15.3454182191101, 91.6833753586737,
133.544835331848, 139.86721964799, 124.664449544007, 102.408937731944,
93.5604355646615, 83.1683032098305, 76.5718951980788, 16.53624694588
), CMT = c(2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2), MDV = c(0,
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0), EVID = c(0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0), AMT = c(NA, 50000, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 50000, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, 50000, NA, NA, NA, NA, NA, NA, NA,
NA, NA), DV = c(0, 0, 93.0705373080666, 119.158931115447,
101.119131737192, 98.3850237974117, 93.3146423825588, 94.4074655857413,
85.4798011942845, 64.3246842238628, 12.3877936201801, 12.9611327916651,
0, 94.4599756673357, 128.418170457443, 127.880610571531,
112.014925161075, 117.557276099122, 119.781561548053, 78.4235789891384,
61.6785269162022, 13.3827881024542, 15.3454182191101, 0,
91.6833753586737, 133.544835331848, 139.86721964799, 124.664449544007,
102.408937731944, 93.5604355646615, 83.1683032098305, 76.5718951980788,
16.53624694588), II = c(NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 24, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 24,
NA, NA, NA, NA, NA, NA, NA, NA, NA), SS = c(NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2, NA, NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c("C",
"TRL", "ID", "DOSE", "SDAY", "TIME", "GEN", "GROUP", "TSFD",
"OBS", "CL", "V", "KA", "KEL", "conc", "obs", "CMT", "MDV", "EVID",
"AMT", "DV", "II", "SS"), row.names = c("1201", "1", "4", "7",
"10", "9", "3", "6", "5", "8", "2", "1510", "15", "13", "12",
"11", "14", "17", "20", "19", "18", "16", "2910", "29", "23",
"26", "25", "28", "22", "21", "24", "27", "30"), class = "data.frame")
Then to add error the sampling time points in TSFD (EVID=0)
allData$TSFD[allData$EVID == 0 & allData$TSFD >0] = round(jitter(allData$TSFD[allData$EVID == 0 & allData$TSFD >0]),2)
then, I got the below dataset:
allData = structure(list(C = structure(c(1L, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = "C", class = "factor"),
TRL = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L), ID = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), DOSE = c(50, 50,
50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,
50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,
50), SDAY = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 30, 30, 30,
30, 30, 30, 30, 30, 30, 30, 30, 60, 60, 60, 60, 60, 60, 60,
60, 60, 60, 60), TIME = c(0, 0, 1, 2, 3, 4, 5, 6, 8, 10,
24, 0, 0, 1, 2, 3, 4, 5, 6, 8, 10, 24, 0, 0, 1, 2, 3, 4,
5, 6, 8, 10, 24), GEN = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), GROUP = c(0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L), TSFD = c(0, 0, 1.07, 2.19, 3, 4.15, 4.82, 6.06, 7.96,
10.02, 23.81, 696.1, 696, 696.9, 697.92, 698.87, 699.94,
701.11, 701.96, 704.19, 705.89, 720.06, 1416, 1416, 1417.11,
1417.81, 1419, 1419.84, 1421.06, 1422.15, 1424.11, 1426.04,
1439.83), OBS = 1:33, CL = c(33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554, 33.8712839749554,
33.8712839749554, 33.8712839749554, 33.8712839749554), V = c(320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579,
320.037242525579, 320.037242525579, 320.037242525579, 320.037242525579
), KA = c(0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293,
0.995274973731293, 0.995274973731293, 0.995274973731293),
KEL = c(0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526,
0.105835444986526, 0.105835444986526, 0.105835444986526),
conc = c(0, 0, 92.647083382467, 117.587164906218, 118.435668936488,
111.21996697943, 101.779709034282, 92.1974188524962, 74.9088584827009,
60.6595346538829, 13.7868848267872, 14.9672371118036, 14.9672371118036,
106.111200764071, 129.699116863709, 129.331249838855, 121.021333729664,
110.59675064338, 100.128988471021, 81.3273303362704, 65.8535609206108,
14.9672371118036, 14.9672371118036, 14.9672371118036, 106.111200764071,
129.699116863709, 129.331249838855, 121.021333729664, 110.59675064338,
100.128988471021, 81.3273303362704, 65.8535609206108, 14.9672371118036
), obs = c(0, 0, 93.0705373080666, 119.158931115447, 101.119131737192,
98.3850237974117, 93.3146423825588, 94.4074655857413, 85.4798011942845,
64.3246842238628, 12.3877936201801, 12.9611327916651, 12.9611327916651,
94.4599756673357, 128.418170457443, 127.880610571531, 112.014925161075,
117.557276099122, 119.781561548053, 78.4235789891384, 61.6785269162022,
13.3827881024542, 15.3454182191101, 15.3454182191101, 91.6833753586737,
133.544835331848, 139.86721964799, 124.664449544007, 102.408937731944,
93.5604355646615, 83.1683032098305, 76.5718951980788, 16.53624694588
), CMT = c(2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2), MDV = c(0,
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0), EVID = c(0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0), AMT = c(NA, 50000, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 50000, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, 50000, NA, NA, NA, NA, NA, NA, NA,
NA, NA), DV = c(0, 0, 93.0705373080666, 119.158931115447,
101.119131737192, 98.3850237974117, 93.3146423825588, 94.4074655857413,
85.4798011942845, 64.3246842238628, 12.3877936201801, 12.9611327916651,
0, 94.4599756673357, 128.418170457443, 127.880610571531,
112.014925161075, 117.557276099122, 119.781561548053, 78.4235789891384,
61.6785269162022, 13.3827881024542, 15.3454182191101, 0,
91.6833753586737, 133.544835331848, 139.86721964799, 124.664449544007,
102.408937731944, 93.5604355646615, 83.1683032098305, 76.5718951980788,
16.53624694588), II = c(NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 24, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 24,
NA, NA, NA, NA, NA, NA, NA, NA, NA), SS = c(NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2, NA, NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c("C",
"TRL", "ID", "DOSE", "SDAY", "TIME", "GEN", "GROUP", "TSFD",
"OBS", "CL", "V", "KA", "KEL", "conc", "obs", "CMT", "MDV", "EVID",
"AMT", "DV", "II", "SS"), row.names = c("1201", "1", "4", "7",
"10", "9", "3", "6", "5", "8", "2", "1510", "15", "13", "12",
"11", "14", "17", "20", "19", "18", "16", "2910", "29", "23",
"26", "25", "28", "22", "21", "24", "27", "30"), class = "data.frame")
However, the sequence of TSFD is not correct, if you look at ID 1, for example, first two records at SDAY=30, first record is pre-dose record, second record is doing record (EVID=1), but the sequence of time is wrong (equal is acceptable). how can I add error by jitter() to have correct time sequence?
扫码加我 拉你入群
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
|