data(GH)
L1 = length(GH$JSTR)
DD = data.frame(GH$info)
#### convert to individual traces,
### here just use the first one:
i = 1
AA = DD[i,]
zh = list(fn = AA$fn, sta =GH$STNS[i] , comp = GH$COMP[i],
dt = AA$dt, DATTIM = AA, N = AA$n1, units = NA,
coords = NA, amp = GH$JSTR[[i]] )
###### plot
plotGH(zh)
Run the code above in your browser using DataLab