controlledApply          package:arrayMagic          R Documentation

_c_o_n_t_r_o_l_l_e_d_A_p_p_l_y

_D_e_s_c_r_i_p_t_i_o_n:

     Same functionality as 'simpleApply' but possibly faster. In
     certain circumstances the function 'apply' is used instead of
     'simpleApply' which improves the performace.

_U_s_a_g_e:

     controlledApply(arrayObject, dimensions, func, funcResultDimensionality)

_A_r_g_u_m_e_n_t_s:

arrayObject: object of class 'array'

dimensions: increasing numeric vector

    func: unary function

funcResultDimensionality: numeric (vector) specifying the
          dimensionality of the return value of 'func'

_V_a_l_u_e:

     An array of
     'dim=c(dim(arrayObject[dimensions]),funcResultDimensionality)'.
     You may want to use 'aperm' to rearrange the dimensions.

_A_u_t_h_o_r(_s):

     Andreas Buness <a.buness@dkfz.de>

_E_x_a_m_p_l_e_s:

     a <- array(c(1:30),dim=c(3,2,5))
     r <- controlledApply(a, 1, function(x){return(x[2,5])}, 1)
     stopifnot( all(r == matrix(data=c(28:30))))

     r <- controlledApply(a, 2, function(x){return(x[,])}, c(3,5))
     stopifnot( all( a == aperm(r,c(2,1,3)) ) )

     vec <- 1:10; dim(vec) <- c(10,1)
     mat <- matrix(data=rep(1:10,4),nrow=10,ncol=4,byrow=FALSE)
     r <- controlledApply(mat,1,function(y){return(mean(y))},1)
     stopifnot(all(r==vec))

     r <- controlledApply(mat, 1:2, function(x) return(x), 1)
     stopifnot( all(r[,,1] == mat) )

     r <- controlledApply(a, c(1,3) , function(x) return(x), dim(a)[2])
     stopifnot( all(aperm(r[,,],c(1,3,2)) == a) )

     r <- controlledApply(a, 1:2, function(x) return(x[2]), 1)
     stopifnot( all(r[,,] == a[,,2]) )

     r <- controlledApply(a, 1, function(x) return(x), c(dim(a)[2],dim(a)[3]))
     stopifnot( all( r== a ) )

      

      

