#### TODO: add data generating as in 6 task

summary(lm(data = result_table, time ~ factor))

attach(result_table)

plot(result_table$time[factor == 'fully sorted'], col = "blue", ylim = c(0, 1))
abline(0.00210, 0, col = "blue", lwd = 1)

points(result_table$time[factor == 'half-sorted'], col = "red")
abline(0.00210 + 0.37980, 0, col = "red", lwd = 1)

points(result_table$time[factor == 'reverse'], col = "green")
abline(0.00210 + 0.84620, 0, col = "green", lwd = 1)

points(result_table$time[factor == 'random'], col = "black")
abline(0.00210 + 0.41620, 0, col = "black", lwd = 1)

#### TODO: add prediction