[chronojump] Testing with smoothing
- From: Xavier Padullés <xpadulles src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [chronojump] Testing with smoothing
- Date: Mon, 25 Jan 2016 12:46:33 +0000 (UTC)
commit fcaf81b0dc58bb7cd17436923e8d57ee691e299c
Author: Xavier Padullés <x padulles gmail com>
Date: Mon Dec 28 12:58:18 2015 +0100
Testing with smoothing
encoder/tests/smooth-2015.R | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/tests/smooth-2015.R b/encoder/tests/smooth-2015.R
index 1034958..e854db4 100644
--- a/encoder/tests/smooth-2015.R
+++ b/encoder/tests/smooth-2015.R
@@ -108,7 +108,7 @@ speed <- getSpeedByPosition(position)
plot(speed$y, type="l")
#Testing the smoothing in the whole signal
-signal <- scan(file="chronojump/encoder/tests/signal_inertial.txt", sep=",")
+signal <- scan(file="signal_inertial.txt", sep=",")
speed.smoothed <- list(s01=smooth.spline(signal,spar=0.1), s02=smooth.spline(signal,spar=0.2),
s03=smooth.spline(signal,spar=0.3), s04=smooth.spline(signal,spar=0.4), s05=smooth.spline(signal,spar=0.5),
s06=smooth.spline(signal,spar=0.6), s07=smooth.spline(signal,spar=0.7), s08=smooth.spline(signal,spar=0.8),
s09=smooth.spline(signal,spar=0.9))
accel.smoothed <- list(s01 = getAcceleration(speed.smoothed$s01), s02 = getAcceleration(speed.smoothed$s02),
s03 = getAcceleration(speed.smoothed$s03), s04 = getAcceleration(speed.smoothed$s04), s05 =
getAcceleration(speed.smoothed$s05), s06 = getAcceleration(speed.smoothed$s06), s07 =
getAcceleration(speed.smoothed$s07), s08 = getAcceleration(speed.smoothed$s08), s09 =
getAcceleration(speed.smoothed$s09))
accel.mean <- c(sum(abs(accel.smoothed$s01$y)), sum(abs(accel.smoothed$s02$y)),
sum(abs(accel.smoothed$s03$y)), sum(abs(accel.smoothed$s04$y)), sum(abs(accel.smoothed$s05$y)),
sum(abs(accel.smoothed$s06$y)), sum(abs(accel.smoothed$s07$y)), sum(abs(accel.smoothed$s08$y)),
sum(abs(accel.smoothed$s09$y)))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]