a <- horizon(ctx3(), 'sm')
plot(a)
h <- hedge('ve')
plot(h)
verySmall <- function(x) h(a(x))
plot(verySmall)
# the last plot should be equal to:
plot(lingexpr(ctx3(), atomic='sm', hedge='ve'))
Run the code above in your browser using DataLab