Read a NWZ V2A acceleration record (3D-BLOCK, 1 file = 3 components).

Each component is a sequential block opened by Corrected accelerogram (case-insensitive). Within a block, header ends 10 lines after Displacement:. Body has 10 values per row in fixed-width form; "stuck" negatives are split before parsing. Each component vector is truncated at its own Number of points value.

Usage

readV2A(file)

Arguments

file

Path to the .V2A file.

Value

LONG data.table(t, OCID, s).

Details

OCIDs come from Component <X> lines in each block.

Examples

file <- tempfile(fileext = ".V2A")
writeLines(c(
  "Corrected Accelerogram", "Component H1", "at 0.01 sec intervals",
  "Number of points 4", "Displacement:", rep("header", 10), "1 2 3 4",
  "Corrected Accelerogram", "Component H2",
  "Number of points 4", "Displacement:", rep("header", 10), "2 3 4 5",
  "Corrected Accelerogram", "Component UP",
  "Number of points 4", "Displacement:", rep("header", 10), "3 4 5 6"
), file)
readV2A(file)
#>         t   OCID     s
#>     <num> <char> <num>
#>  1:  0.00     H1     1
#>  2:  0.01     H1     2
#>  3:  0.02     H1     3
#>  4:  0.03     H1     4
#>  5:  0.00     H2     2
#>  6:  0.01     H2     3
#>  7:  0.02     H2     4
#>  8:  0.03     H2     5
#>  9:  0.00     UP     3
#> 10:  0.01     UP     4
#> 11:  0.02     UP     5
#> 12:  0.03     UP     6