Nothing
###
### $Id: plotSignalTransformation.R 59 2022-06-09 14:27:58Z proebuck $
###
##-----------------------------------------------------------------------------
plotSignalTransformation <- function(x, s, title, col.x="blue", col.s="red") {
plot(x, main=title, ylim=c(1, -1), type="n", axes=FALSE)
box()
axis(1, seq(0, length(x), by=100))
axis(2, seq(1, -1, by=-0.2))
lines(x, col=col.x)
lines(s, col=col.s)
legend(length(s), 0, legend="signal", text.col=col.s, bty="n", xjust=1)
invisible(NULL)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.