check GM database v8 vertical record with PGA = -999

[personlin]

filter(SSHAC.V8.v, PGA < 0) %>% select(EQ_ID, STA_ID, file.id, PGA, PGA.raw.Z)

[personlin]

check data with PGA=-999

filter(SSHAC.V8.v, PGA < 0) %>% select(EQ_ID, STA_ID, file.id, PGA, PGA.raw.Z, Sa_source)
There're 6 record2 with PGA= -999, 2 from NGA-West2, 4 from NGA-Sub, all GM value in source flatfile are -999. These record will be removed in the next update.

              EQ_ID STA_ID                   file.id  PGA PGA.raw.Z Sa_source
1 1999_0920_1747_16 HWA054 09201747.P99.27026300.IDS -999      0.36 NGA-West2
2 1999_0920_1747_16 TTN047 09201747.P99.25426300.IDS -999      0.00 NGA-West2
3 2002_0331_0652_50 ILA057 15310652.P02.23109000.IDS -999     25.18   NGA-Sub
4 2002_0331_0652_50 TCU071  15310652.P02.T063001.090 -999      5.08   NGA-Sub
5 2005_1015_1551_04 TCU158  22151550.P05.T521001.288 -999      0.00   NGA-Sub
6 2008_0909_0743_13 TCU023  21090742.P08.T200001.253 -999      0.00   NGA-Sub

check NGA-West2

filter(SSHAC.V8.v, PGA < 0) %>% select(EQ_ID, STA_ID, file.id, PGA, PGA.raw.Z) %>% inner_join(NGA.West2.tw, by=c("file.id"="file.id"))

check NGA-Sub

filter(SSHAC.V8.v, PGA < 0) %>% select(EQ_ID, STA_ID, file.id, PGA, PGA.raw.Z) %>% inner_join(NGA.Sub.tw, by=c("file.id"="file.id"))