### earthquake in Noto,Japan
data(coastmap)
elat = 37.4949
elon = 137.2653
K = list(lon=c(183.3158,188.2173,253.5428,295.3037,
166.4531,110.5354,268.7554,98.9443,212.1384,236.6954),
lat=c( 51.8823,-13.9085,34.94591,32.3713,68.0653,
-66.2792,38.0557,18.8141,64.8736,44.5855 ))
LLsmallcircMap(elat, elon, coastmap, K$lat, K$lon )
LLsmallcircMap(elat, elon, coastmap, K$lat, K$lon,
MAXR=80, eqcol=c('blue', 'gold') , mapcol=grey(.8), pch=22, ecex=1.5 )
Run the code above in your browser using DataLab