plot.cepstrum <-
function(x, pixel.colors = gray.colors(16,1,0), ...){
if(is(x)=="cepstrum"){
image(attr(x, "time"), attr(x, "frequency"), x, col = pixel.colors, xlab = "Time (s)", ylab = "Quefrency (s)", ...);
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.