Browse code
Ther was an error in plot of reglin
Michi authored on11/06/2012 19:39:56 Showing1 changed files
| ... | ... |
@@ -60,7 +60,7 @@ best_b_lin = b_vec[which(lin_arr == minimum_lin,arr.ind=TRUE)[1]] |
| 60 | 60 |
points(x_vec, linrel(x_vec,best_m_lin,best_b_lin), type="l", col="blue", xlab='x',ylab='f(x)=y') |
| 61 | 61 |
minimum_con=min(con_arr) |
| 62 | 62 |
best_b_con = b_vec[which(con_arr == minimum_con,arr.ind=TRUE)[1]] |
| 63 |
-points(x_vec, rep(conrel(best_b_lin),41), type="l", col="yellow", xlab='x',ylab='f(x)=y') |
|
| 63 |
+points(x_vec, rep(conrel(best_b_con),41), type="l", col="yellow", xlab='x',ylab='f(x)=y') |
|
| 64 | 64 |
|
| 65 | 65 |
#Probelm3 |
| 66 | 66 |
norm = function(a) 1/sum(a) * a |