From 2b942568d54cffa4524e897c0f18c0db81459186 Mon Sep 17 00:00:00 2001
From: Jan Klemkow <j.klemkow@wemelug.de>
Date: Tue, 24 Apr 2012 13:39:06 +0200
Subject: Add mean prediction test

---
 mean_pred.m  | 5 +++++
 quad_error.m | 5 +++++
 run_tests.m  | 1 +
 3 files changed, 11 insertions(+)
 create mode 100644 mean_pred.m
 create mode 100644 quad_error.m
 create mode 100644 run_tests.m

diff --git a/mean_pred.m b/mean_pred.m
new file mode 100644
index 0000000..bc0edd0
--- /dev/null
+++ b/mean_pred.m
@@ -0,0 +1,5 @@
+function pred_mat = mean_pred(data, days)
+
+	pred_mat = repmat(mean(data), days, 1);
+
+endfunction
diff --git a/quad_error.m b/quad_error.m
new file mode 100644
index 0000000..bdf327b
--- /dev/null
+++ b/quad_error.m
@@ -0,0 +1,5 @@
+function err = quad_error(a, b)
+
+	err = sqrt(sum(sum((a - b) .^ 2)));
+
+endfunction
diff --git a/run_tests.m b/run_tests.m
new file mode 100644
index 0000000..6b284f2
--- /dev/null
+++ b/run_tests.m
@@ -0,0 +1 @@
+meanerr = quad_error(q(29:42, :), mean_pred(q(1:28, :), 14))
-- 
cgit