Hello,
Bcampbell99 wrote>
> Hi:
>
> I'm having some difficulty properly subscripting a function to remove
> complete NA rows from a R array object. Could someone please suggest how
> best
> to script this out?
>
> Data structure:
>
> X is an array with 3 dimensions (replicates, Species, Sites)
> replicates: 1 to 6 but ragged...not all sites equal
>
>
>
> ,,Site1
>
> Sp1 Sp2 Sp3... Sp50
> 1 5 4 3 2
> 2 3 0 0 1
> 3 NA NA NA NA
> 4 NA NA NA NA
> 5 NA NA NA NA
> 6 NA NA NA NA
>
>
>
> ,,Site2
>
> Sp1 Sp2 Sp3... Sp50
> 1 5 4 3 2
> 2 3 0 0 1
> 3 1 1 0 0
> 4 NA NA NA NA
> 5 NA NA NA NA
> 6 NA NA NA NA
>
>
> ,,Site3
>
> Sp1 Sp2 Sp3... Sp50
> 1 5 4 3 2
> 2 3 0 0 1
> 3 1 1 0 0
> 4 5 4 3 2
> 5 3 0 0 1
> 6 1 1 0 0
>
> Most appreciatively:
>
> Brian Campbell
>
Try
# Make up some data
x <- array(1:24, c(4, 3, 2))
x[3,, 1] <- NA
x[3:4,, 2] <- NA
x
apply(x, 3, function(mat)
do.call(rbind, apply(mat, 1, function(y) if(any(!is.na(y))) y)))
Hope this helps,
Rui Barradas
--
View this message in context:
http://r.789695.n4.nabble.com/removing-NA-from-multidmension-arrays-tp4519369p4519750.html
Sent from the R help mailing list archive at Nabble.com.