# NOT RUN {
data(hump)
str(hump)
# }
# NOT RUN {
initial <- hump$initial
final <- hump$final
look <- OF(final, initial, W=9, verbose=TRUE)
plot(look) # Compare with Fig. 1 in Marzban and Sandgathe (2010).
hist(look) # 2-d histogram.
plot(look, full=TRUE) # More plots.
# }
Run the code above in your browser using DataLab