Finance

function ohlc1()
    t = ohlc(open=[33.0, 33.3, 33.5, 33.0, 34.1],
             high=[33.1, 33.3, 33.6, 33.2, 34.8],
             low=[32.7, 32.7, 32.8, 32.6, 32.8],
             close=[33.0, 32.9, 33.3, 33.1, 33.1])
    plot(t)
end
ohlc1()
function ohlc2()
    @eval using Quandl

    function get_ohlc(ticker; kwargs...)
        df = quandlget("WIKI/$(ticker)", format="DataFrame")
        ohlc(open=df[:Open], high=df[:High], low=df[:Low], close=df[:Close]; kwargs...)
    end

    p1 = plot(get_ohlc("AAPL", name="Apple"))
    p2 = plot(get_ohlc("GOOG", name="Google"))


    [p1 p2]
end
ohlc2()
function candlestick1()
    t = candlestick(open=[33.0, 33.3, 33.5, 33.0, 34.1],
                    high=[33.1, 33.3, 33.6, 33.2, 34.8],
                    low=[32.7, 32.7, 32.8, 32.6, 32.8],
                    close=[33.0, 32.9, 33.3, 33.1, 33.1])
    plot(t)
end
candlestick1()
function candlestick2()
    @eval using Quandl

    function get_candlestick(ticker; kwargs...)
        df = quandlget("WIKI/$(ticker)", format="DataFrame")
        candlestick(open=df[:Open], high=df[:High], low=df[:Low], close=df[:Close]; kwargs...)
    end

    p1 = plot(get_candlestick("AAPL", name="Apple"))
    p2 = plot(get_candlestick("GOOG", name="Google"))


    [p1 p2]
end
candlestick2()