R/array3Dlandm.R

Defines functions array3Dlandm

Documented in array3Dlandm

array3Dlandm <- function(numLandm,numIndiv,matLandm){
 dg <- array(0,dim = c(numLandm,3,numIndiv))
  for(k in 1:numIndiv){
   for(l in 1:3){
     dg[,l,k] <- as.matrix(matLandm[k,][seq(l,dim(matLandm)[2]+(l-1),by=3)], ncol = 1, byrow = TRUE)
    }
  }
  return(dg)
}

Try the Anthropometry package in your browser

Any scripts or data that you put into this service are public.

Anthropometry documentation built on Dec. 11, 2021, 9:08 a.m.