Nothing
plot.RescorlaWagner = function(x, asymptote=TRUE, xlab="t", ylab="weight",
ylimit=NA, ...)
{
rwWeights = x
x = 1:length(rwWeights$weightvector)
y = rwWeights$weightvector
eqw = rwWeights$equilibriumWeight
if (is.na(ylimit[1])) {
if (asymptote) {
ylimit = range(y, eqw)
} else {
ylimit = range(y)
}
}
plot.default(x, y, type="l", ylim=ylimit, xlab=xlab, ylab=ylab, ...)
if (asymptote) abline(h=eqw, lty=2, ...)
}
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.