Open personlin opened 6 years ago
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"))
filter(SSHAC.V8.v, PGA < 0) %>% select(EQ_ID, STA_ID, file.id, PGA, PGA.raw.Z)