projects
/
talweg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix mistake in yersteday/today computations
[talweg.git]
/
pkg
/
R
/
plot.R
diff --git
a/pkg/R/plot.R
b/pkg/R/plot.R
index
59a26a7
..
ad0ed4e
100644
(file)
--- a/
pkg/R/plot.R
+++ b/
pkg/R/plot.R
@@
-236,10
+236,10
@@
plotRelVar = function(data, fil, predict_from)
{
ref_var = c( apply(data$getSeries(fil$neighb_indices),1,sd),
apply(data$getSeries(fil$neighb_indices+1),1,sd) )
{
ref_var = c( apply(data$getSeries(fil$neighb_indices),1,sd),
apply(data$getSeries(fil$neighb_indices+1),1,sd) )
-
fdays = .getNoNA2(data, 1, fil$index-1
)
+
tdays = .getNoNA2(data, 2, fil$index
)
global_var = c(
global_var = c(
- apply(data$getSeries(
fdays
),1,sd),
- apply(data$getSeries(
fdays+1
),1,sd) )
+ apply(data$getSeries(
tdays-1
),1,sd),
+ apply(data$getSeries(
tdays
),1,sd) )
yrange = range(ref_var, global_var)
par(mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5)
yrange = range(ref_var, global_var)
par(mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5)