plot.multiFunData {funData} | R Documentation |
Plotting multivariate functional data
Description
This function plots observations of multivariate functional data on their domain. The graphic
device is split in a number of subplots (specified by dim
) via mfrow
(par
) and the univariate elements are plotted using plot
.
Usage
## S3 method for class 'multiFunData'
plot(
x,
y,
obs = seq_len(nObs(x)),
dim = seq_len(length(x)),
par.plot = NULL,
main = names(x),
xlab = "argvals",
ylab = "",
log = "",
ylim = NULL,
...
)
## S4 method for signature 'multiFunData,missing'
plot(x, y, ...)
Arguments
x |
An object of class |
y |
Missing. |
obs |
A vector of numerics giving the observations to plot. Defaults to
all observations in |
dim |
The dimensions to plot. Defaults to |
par.plot |
Graphic parameters to be passed to the plotting regions. The
option |
main |
A string vector, giving the title of the plot. Can have the same
length as |
xlab , ylab |
The titles for x- and y-axis. Defaults to |
log |
A character string, specifying the axis that is to be logarithmic.
Can be |
ylim |
Specifies the limits of the y-Axis. Can be either |
... |
Additional arguments to |
Warning
The function is currently implemented only for functional data with one- and two-dimensional domains.
See Also
funData
, multiFunData
,
plot.funData
Examples
oldpar <- par(no.readonly = TRUE)
argvals <- seq(0, 2*pi, 0.1)
# One-dimensional elements
f1 <- funData(argvals, outer(seq(0.75, 1.25, length.out = 11), sin(argvals)))
f2 <- funData(argvals, outer(seq(0.75, 1.25, length.out = 11), cos(argvals)))
m1 <- multiFunData(f1, f2)
plot(m1, main = c("1st element", "2nd element")) # different titles
plot(m1, main = "Multivariate Functional Data") # one title for all
# Mixed-dimensional elements
X <- array(0, dim = c(11, length(argvals), length(argvals)))
X[1,,] <- outer(argvals, argvals, function(x,y){sin((x-pi)^2 + (y-pi)^2)})
g <- funData(list(argvals, argvals), X)
m2 <- multiFunData(f1, g)
# different titles and labels
plot(m2, main = c("1st element", "2nd element"), obs = 1,
xlab = c("xlab1", "xlab2"),
ylab = "one ylab for all")
# one title for all
plot(m2, main = "Multivariate Functional Data", obs = 1)
## Not run: plot(m2, main = c("1st element", "2nd element")) # must specify obs!
par(oldpar)