Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
HYCAR-Hydro
airGR
Commits
aebd458f
Commit
aebd458f
authored
Jul 12, 2017
by
unknown
Browse files
v1.0.9.15 argument fully written to be unambiguous in plot.Output Model
parent
00551ea9
Changes
2
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
aebd458f
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.9.1
4
Version: 1.0.9.1
5
Date: 2017-07-12
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
...
...
R/plot.OutputsModel.R
View file @
aebd458f
...
...
@@ -469,7 +469,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
}
if
(
!
is.null
(
BasinArea
))
{
Factor
<-
Factor_UNIT_M3S
;
axis
(
side
=
4
,
at
=
seqDATA1
,
labels
=
round
(
seqDATA2
*
Factor
,
dig
=
2
),
cex.axis
=
cex.axis
,
...
)
axis
(
side
=
4
,
at
=
seqDATA1
,
labels
=
round
(
seqDATA2
*
Factor
,
dig
its
=
2
),
cex.axis
=
cex.axis
,
...
)
par
(
las
=
0
);
mtext
(
side
=
4
,
paste0
(
"flow "
,
"m3/s"
),
line
=
line
,
cex
=
cex.lab
);
par
(
las
=
0
)
}
legend
(
"topleft"
,
txtleg
,
col
=
colleg
,
lty
=
1
,
lwd
=
lwd
,
bty
=
"o"
,
bg
=
bg
,
box.col
=
bg
,
cex
=
cex.leg
)
...
...
@@ -501,7 +501,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
par
(
las
=
0
);
mtext
(
side
=
2
,
paste0
(
"simulated flow "
,
plotunit
),
line
=
line
,
cex
=
cex.lab
);
par
(
las
=
0
);
if
(
!
is.null
(
BasinArea
))
{
Factor
<-
Factor_UNIT_M3S
;
axis
(
side
=
4
,
at
=
seqDATA1
,
labels
=
round
(
seqDATA2
*
Factor
,
dig
=
2
),
cex.axis
=
cex.axis
,
...
);
axis
(
side
=
4
,
at
=
seqDATA1
,
labels
=
round
(
seqDATA2
*
Factor
,
dig
its
=
2
),
cex.axis
=
cex.axis
,
...
);
par
(
las
=
0
);
mtext
(
side
=
4
,
paste0
(
"flow "
,
"m3/s"
),
line
=
line
,
cex
=
cex.lab
);
par
(
las
=
0
);
}
legend
(
"bottomright"
,
"log scale"
,
lty
=
1
,
col
=
NA
,
bty
=
"o"
,
bg
=
bg
,
box.col
=
bg
,
cex
=
cex.leg
)
}
else
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment