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
Reineking Bjoern
vigratools
Commits
c102f988
Commit
c102f988
authored
Oct 06, 2018
by
Björn Reineking
Browse files
Update names in raster_mapply
parent
b14dc3c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/raster_apply.R
View file @
c102f988
...
...
@@ -43,13 +43,14 @@ raster_mapply <- function(x, sigma) {
result
<-
raster
::
stack
(
result
,
layer
)
layer
[]
<-
ste
[[
2
]]
result
<-
raster
::
stack
(
result
,
layer
)
names
(
result
)
<-
c
(
paste0
(
"G_"
,
sigma
),
paste0
(
"LG_"
,
sigma
),
paste0
(
"GGM_"
,
sigma
),
paste0
(
"Struct.1_"
,
sigma
),
paste0
(
"Struct.2_"
,
sigma
),
paste0
(
"HOG.1_"
,
sigma
),
paste0
(
"HOG.2_"
,
sigma
))
base_name
<-
names
(
x
)
names
(
result
)
<-
c
(
paste
(
base_name
,
"G"
,
sigma
,
sep
=
"_"
),
paste
(
base_name
,
"LG"
,
sigma
,
sep
=
"_"
),
paste
(
base_name
,
"GGM"
,
sigma
,
sep
=
"_"
),
paste
(
base_name
,
"ST.1"
,
sigma
,
sep
=
"_"
),
paste
(
base_name
,
"ST.2"
,
sigma
,
sep
=
"_"
),
paste
(
base_name
,
"HG.1"
,
sigma
,
sep
=
"_"
),
paste
(
base_name
,
"HG.2"
,
sigma
,
sep
=
"_"
))
result
}
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