Copy the Attributes of an Object of Class 'asc' or 'kasc' to another Object

Share:

Description

getascattr copies the attributes of an object of class asc to another matrix of the same size.
getkascattr performs the same operation for objects of class kasc.

Usage

1
2
getascattr(xfrom, xto, type = c("numeric", "factor"), lev = NULL)
getkascattr(xkfrom, xkto)

Arguments

xfrom

an object of class asc

xto

a matrix with the same number of rows and columns as xfrom

type

a character string giving the type of the map ("factor" for maps of categorical variables, and "numeric" otherwise)

lev

if type = "factor", a character vector giving the levels of the mapped variable (see help(asc))

xkfrom

an object of class kasc

xkto

a data frame with the same number of rows and columns as xkfrom

Value

getascattr returns a raster matrix of class asc,
getkascattr returns a data frame of class kasc

Author(s)

Clement Calenge clement.calenge@oncfs.gouv.fr

See Also

kasc for additionnal information on objects of class kasc, asc for additionnal information on objects of class asc

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
data(puechabon)

## my.map is a map of elevation
my.map <- getkasc(puechabon$kasc, "Elevation")
sl <- getkasc(puechabon$kasc, "Slope")
attributes(sl) <- NULL
sl <- matrix(sl, ncol = ncol(my.map))

## sl is a matrix with the same size as my.map
toto <- getascattr(my.map, sl)
image(toto)

## Same rationale with aspect
asp <- getkasc(puechabon$kasc, "Aspect")
le <- levels(asp)
attributes(asp) <- NULL
asp <- matrix(asp, ncol = ncol(my.map))

## asp is now a matrix with the same size as my.map
tutu <- getascattr(my.map, asp, typ = "factor", lev = le)
cl <- colasc(tutu, NorthEast = "blue", SouthEast = "red", 
           SouthWest = "orange", NorthWest = "green")
image(tutu, clfac = cl)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.