data(d.blast)
getvarnames(log10(tremor)~log10(distance)*log10(charge), data=d.blast)
dd <- getvariables(log10(tremor)~log10(distance)*log10(charge),
data=d.blast, by=location)
str(dd)
Run the code above in your browser using DataLab