Last chance! 50% off unlimited learning
Sale ends in
turbulence
object in a rose plot.plotTurbulence(turb, ...)
plturb(turb, ...)
turbulence
.cex
: Numeric value, giving the amount by which text on the plot should be scaled relative to the default (which is 1).cex.axis
: Amount by which axis annotations should be scaled, as numeric value.cex.lab
: Amount by which axis labels should be scaled, as numeric value.circles
: Manual definition of circles to be drawn, as numeric vector of the form c(inner circle, outer circle, interval between the circles).col
: Colour to be used for the sectors.col.axis
: Colour to be used for axis annotations -- default is"gray45"
.col.border
: Colour to be used for sector borders -- default isNULL
(no border is drawn).col.circle
: Colour to be used for circles -- default is"gray45"
.col.cross
: Colour to be used for axis lines -- default is"gray45"
.col.lab
: Colour to be used for axis labels -- default is"black"
.fg
: IfTRUE
, sectors are plotted in foreground (on top of axis lines and circles) -- default isFALSE
.lty.circle
: Line type of circles -- default is"dashed"
. Seepar
for available line types.lty.cross
: Line type of axis lines -- default is"solid"
. Seepar
for available line types.lwd.border
: Line width of the sector borders -- default is0.5
. Only used ifcol.border
is set.lwd.circle
: Line width of circles, as numeric value -- default is0.7
.lwd.cross
: Line width of axis lines, as numeric value -- default is0.7
.pos.axis
: Position of axis labels in degree, as numeric value -- default is60
.sec.space
: Space between plotted sectors, as numeric value between0
and1
-- default is0.2
.turbulence
# load and prepare data
data(winddata)
set1 <- createSet(height=40, v.avg=winddata[,2], v.std=winddata[,5],
dir.avg=winddata[,14])
ts <- formatTS(time.stamp=winddata[,1])
neubuerg <- createMast(time.stamp=ts, set1)
neubuerg <- clean(mast=neubuerg)
# calculate turbulence intensity
neubuerg.ti <- turbulence(mast=neubuerg, turb.set=1, print=FALSE)
# plot turbulence intensity
plotTurbulence(turb=neubuerg.ti)
# change colour, text size etc.
plotTurbulence(turb=neubuerg.ti, cex.axis=0.7, cex.lab=0.9,
circles=c(0.05,0.20,0.05), col="lightgray", col.axis="darkgray",
col.border="gray", col.circle="darkgray", col.cross="darkgray",
col.lab="darkgray", fg=TRUE, lty.circle="dotdash",
lty.cross="longdash", lwd.border=1.2, lwd.circle=1.2,
lwd.cross=1.2, pos.axis=135, sec.space=0.6)
Run the code above in your browser using DataLab