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
24b50777
Commit
24b50777
authored
Jul 14, 2021
by
Delaigue Olivier
Browse files
style: indent plot.OutputsModel code
Resf
#112
parent
3033b69e
Pipeline
#24978
passed with stages
in 9 minutes and 52 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
R/plot.OutputsModel.R
View file @
24b50777
...
...
@@ -363,9 +363,9 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
col
=
c
(
"lightblue"
,
"royalblue"
),
lty
=
c
(
1
,
1
),
lwd
=
c
(
lwd
,
lwd
),
bty
=
"o"
,
bg
=
bg
,
box.col
=
bg
,
cex
=
cex.leg
)
points
(
Xaxis
,
PsolLayerMean
,
type
=
"h"
,
xaxt
=
"n"
,
yaxt
=
"n"
,
yaxs
=
"i"
,
ylim
=
ylim2
,
col
=
"lightblue"
,
lwd
=
lwdP
*
lwdk
,
lend
=
1
,
xlab
=
""
,
ylab
=
""
,
...
)
type
=
"h"
,
xaxt
=
"n"
,
yaxt
=
"n"
,
yaxs
=
"i"
,
ylim
=
ylim2
,
col
=
"lightblue"
,
lwd
=
lwdP
*
lwdk
,
lend
=
1
,
xlab
=
""
,
ylab
=
""
,
...
)
}
AxisTS
(
OutputsModel
)
...
...
@@ -398,8 +398,8 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
xlab
=
""
,
ylab
=
""
,
...
)
if
(
BOOLPLOT_ActuEvap
)
{
lines
(
Xaxis
,
OutputsModel
$
AE
,
type
=
"l"
,
xaxt
=
"n"
,
yaxt
=
"n"
,
ylim
=
ylim2
,
col
=
"green4"
,
lwd
=
lwd
*
lwdk
,
lty
=
3
)
type
=
"l"
,
xaxt
=
"n"
,
yaxt
=
"n"
,
ylim
=
ylim2
,
col
=
"green4"
,
lwd
=
lwd
*
lwdk
,
lty
=
3
)
legend
(
"topright"
,
legend
=
c
(
"pot."
,
"actu."
),
col
=
c
(
"green3"
,
"green4"
),
lty
=
c
(
1
,
3
),
lwd
=
c
(
lwd
*
1.0
,
lwd
*
0.8
),
bty
=
"o"
,
bg
=
bg
,
box.col
=
bg
,
cex
=
cex.leg
)
...
...
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