# NOT RUN {
if (require(shapes)) {
r2morphoj(gorf.dat,file="gorf.dat")
data <- bindArr(gorf.dat, gorm.dat, along=3)
datalabels <- c(rep("female",dim(gorf.dat)[3]),
rep("male",dim(gorm.dat)[3]))
labelname <- "sex"
r2morphologika(data, labels=datalabels, labelname= labelname, file="data.dat")
}
# }
Run the code above in your browser using DataLab