Description Usage Arguments Value Author(s) See Also Examples
View source: R/EuclRandVariable.R
Generates an object of class "EuclRandMatrix"
.
1 2 |
Map |
list of functions forming the map. |
nrow |
number of rows. |
ncol |
number of columns. |
Domain |
object of class |
dimension |
positive integer: dimension of the
range of |
Range |
object of class |
Object of class "EuclRandMatrix"
Matthias Kohl Matthias.Kohl@stamats.de
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4},
function(x){x^5}, function(x){x^6})
L2 <- list(function(x){exp(x)}, function(x){abs(x)},
function(x){sin(x)}, function(x){floor(x)})
R1 <- EuclRandMatrix(Map = L1, nrow = 3, Domain = Reals(), dimension = 1)
R1[1:2, 2]
R1[1:2, 1:2]
Map(R1[1,2])
Map(t(R1)[2,1])
R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
(DL <- imageDistr(R2, Norm()))
plot(DL)
Map(gamma(R2)) # "Math" group
## "Arith" group
Map(2/R1)
Map(R2 * R2)
## The function is currently defined as
function(Map = list(function(x){1}), nrow = 1, ncol = 1,
Domain = NULL, dimension = 1) {
if (missing(nrow))
nrow <- ceiling(length(Map)/ncol)
else if (missing(ncol))
ncol <- ceiling(length(Map)/nrow)
if(missing(Range))
return(new("EuclRandMatrix", Map = Map, Domain = Domain,
Range = EuclideanSpace(dimension = dimension),
Dim = as.integer(c(nrow, ncol))))
else
return(new("EuclRandMatrix", Map = Map, Domain = Domain,
Range = Range, Dim = as.integer(c(nrow, ncol))))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.