data(d.blast)
showd(d.blast)
plyx(tremor~distance, psize=charge, data=d.blast)
rr <- lm(logst(tremor)~location+log10(distance)+log10(charge), data=d.blast)
plregr(rr)
t.date <- as.POSIXlt(paste("1999",d.blast$datetime,sep="."),
format='%Y.%d.%m. %H:%M')
Run the code above in your browser using DataLab