tau_correct = function(z, tau=2){
x = seq_along(z)
correction = c(tau * diff(z), 0)
z = z + correction
return(z)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.