# load and prepare data
data(winddata)
set1 <- createSet(height=40, v.avg=winddata[,2])
ts <- formatTS(winddata[,1])
neubuerg <- createMast(time.stamp=ts, loc=c(49.8909,11.4017),
desc=NULL, set1)
# plot satellite image
plotMap(neubuerg)
# plot map
plotMap(neubuerg, type="map")
# change scale and omit coordinates
plotMap(neubuerg, type="map", width=1, height=0.7, plot.coords=FALSE)
plotMap(neubuerg, type="sat", width=0.006, height=0.005,
plot.coords=FALSE)
# change colour, symbol and text size
plotMap(neubuerg, type="sat", col="white", pch="+", cex=2)
plotMap(neubuerg, type="map", col=4, pch=7, cex=1.5)
Run the code above in your browser using DataLab