Z = c('MLI 1981 1 30 8 52 44.10 51.7400 176.2700 33.0 6.3 7.0 RAT ISLANDS, ALEUTIANS',
'event name: 013081B',
'time shift: 6.0000',
'half duration: 7.0000',
'latitude: 51.5200',
'longitude: 176.1000',
'vdepth: 20.0000',
'Mrr: 2.375000e+26',
'Mtt: -2.777000e+26',
'Mpp: 4.030000e+25',
'Mrt: 2.8e+26',
'Mrp: 1.19e+26',
'Mtp: -5.39e+25'
)
fn = tempfile("temp", fileext = ".cmt")
cat(file=fn, Z, sep="\n")
Hcmt = readCMT(fn, PLOT=FALSE)
Run the code above in your browser using DataLab