tests/testthat/helper_test_data.R

In k-t-to/gravee: Good Risk Assessment Values for Environmental Exposures

# Test data sets for testing gravee package -----

# Test data adapted from the original GRAVEE repository -----
# No variability in responses

test_data_tnt <- "dose	response
0	10.7082217300384
0.3125	11.7377226694966
0.625	11.6204489520133
1.25	10.4787696194758
2.5	10.0247933847025
5	9.0389189892923
0	10.7082217300384
0.3125	11.7377226694966
0.625	11.6204489520133
1.25	10.4787696194758
2.5	10.0247933847025
5	9.0389189892923
0	10.7082217300384
0.3125	11.7377226694966
0.625	11.6204489520133
1.25	10.4787696194758
2.5	10.0247933847025
5	9.0389189892923
0	10.7082217300384
0.3125	11.7377226694966
0.625	11.6204489520133
1.25	10.4787696194758
2.5	10.0247933847025
5	9.0389189892923
"

test_data_tnt <- read.table(text = test_data_tnt, header = T)

# Simulated Data ----- 
# Used to test pod quantile results
test_data_toxpod <- "
dose	response
0	0.2817
0	0.21
0	0
0	0.182
0	0.276
1	0.1959
1	0.1725
1	0.2332
1	0.2716
1	0.2887
2	0.2033
2	0.2181
2	0.3753
2	0.233
2	0.1048
3	0.1378
3	0.2254
3	0.2709
3	0.2591
3	0.1554
4	0.1456
4	0.277
4	0.2977
4	0.1649
4	0.3034
5	0.1725
5	0.0739
5	0.3643
5	0.206
5	0.2953
6	0.1491
6	0.2947
6	0.2003
6	0.1327
6	0.1844
7	0.3766
7	0.1225
7	0.1546
7	0.3955
7	0.2438
8	0.3327
8	0.3684
8	0.4792
8	0.2327
8	0.3681
9	0.3942
9	0.5272
9	0.3488
9	0.4393
9	0.6176
10	0.7205
10	0.8332
10	0.7314
10	0.4334
10	0.8909
11	0.892
11	0.8813
11	1.1316
11	0.92
11	0.6257
12	1.2176
12	1.0289
12	1.1338
12	0.9444
12	0.9203
13	1.1137
13	1.0991
13	1.1824
13	1.1317
13	1.0962
14	0.9594
14	1.1337
14	0.9499
14	1.0861
14	0.9897
15	1.3467
15	1.2601
15	1.2911
15	1.2528
15	1.2849
16	1.364
16	1.2735
16	1.0485
16	1.1425
16	1.3051
17	1.2205
17	1.29
17	0.9986
17	1.2695
17	1.2912
18	1.1326
18	1.2204
18	1.2351
18	1.1129
18	1.0983
19	1.045
19	1.2859
19	1.2502
19	1.2334
19	1.237
20	1.0157
20	1.2052
20	1.1704
20	1.215
20	1.2541
"

test_data_toxpod <- read.table(text = test_data_toxpod, header = T)