plot.ECGdata {ECG} | R Documentation |
Creates a plot for a series of single observations with the extrapolated center of gravity method.
## S3 method for class 'ECGdata'
plot(x, xlim=range(x$frame$solution[,1]), ylim=c(0, max(x$frame$solution[,5])),
xlab=expression(nu[i]), ylab=expression(f[i]), add=TRUE, ...)
x |
an ECGdata object |
xlim |
a range with the x limits for plotting purposes |
ylim |
a range with the y limits for plotting purposes |
xlab |
a string or expression with the label for the x axis |
ylab |
a string or expression with the label for the y axis |
add |
a logical value, if true then the plot is added to an existing one, otherwise it creates a new plot. |
... |
additional parameters |
It plots the sequence of approximations for each fraction of the dataset, and it shows the estimated value while extrapolated at zero fraction. Use it in collaboration with CGdata::plot to show the data, the search frame, and the sequence of approximations.
No return value.
H. Gasca-Aragon
See Also as ECGdata
, print.ECGdata
, plot.ECGdata
require(ECG)
N<- 1000
set.seed(12345)
d1<- 1-sin(seq(1:(5/2*N))/N*pi-pi*3/4)+rnorm(5/2*N, 0, 0.01)
dat<- data.frame(x=1:length(d1),
y=100*(d1-min(d1))/(max(d1)-min(d1)))
CGres <- CGdata(dat)
ECGres<- ECGdata(dat)
# use it alone, plot the sequence of approximations
plot(ECGres, add = FALSE)
# use it in collaboration with CGdata
# display the Center of Gravity approach for single observation
plot(CGres, min(dat$x), max(dat$x))
# then add the extrapolation sequence
plot(ECGres)