Simple linear regression

slr.jl

using DataFrames

datafile = "data1.csv"

function coeff(data::AbstractDataFrame)
    n = nrow(data)
    A = sum(data["pop"])
    Y = sum(data["profit"])
    ya = sum(data["pop"] .* data["profit"])
    a2 = sum(data["pop"] .^ 2)
    k = (n * ya - Y * A) / (n * a2 - A^2)
    c = (Y - k * A) / n
    (k, c)
end

if !isinteractive()
    data1 = readtable(datafile)
    k, c = coeff(data1)
    println "Coeficientes: k = $k, c = $c"
end