# NOT RUN {
#Plot random plane and lineation
strike <- runif(min = 0, max = 360, n = 1)
dip <- runif(min = 0, max = 90, n = 1)
trend <- runif(min = 0, max = 360, n = 1)
plunge <- runif(min = 0, max = 90, n = 1)
if(interactive()){
StereoPlot(my.title = "Example Stereonet")
StereoWeb()
StereoCirc()
StereoPoint(my.az = trend, my.inc = plunge)
StereoPlane(my.strike = strike, my.dip = dip)
}
# }
Run the code above in your browser using DataLab