Create elevation demo. R