Data transformation

library(serosv)

Aggregate data

Use function transform_data() to convert line listing data (data with t, seropositive columns) to aggregated data (data with t, pos, tot columns)

Arguments:

  • t the time vector

  • spos the seropositive vector (TRUE/FALSE or 1/0)

linelisting_data <- hcv_be_2006
aggregated_data <- transform_data(linelisting_data$dur, linelisting_data$seropositive)
aggregated_data
#> # A tibble: 116 × 3
#>        t   pos   tot
#>    <dbl> <int> <int>
#>  1   0.1     0     1
#>  2   0.3     0     1
#>  3   0.4     0     3
#>  4   0.5     0     1
#>  5   0.7     2     5
#>  6   0.8     3     4
#>  7   0.9     3     4
#>  8   1       5     7
#>  9   1.1     1     2
#> 10   1.2     3     4
#> # ℹ 106 more rows