##
# mae.getCondHData() - extract condition set condition n from
# horizontally stacked data frame hTbl where hTbl was read
# with readHSfile().
# Args: hTbl is the horizontally stacked multi-class table
#       n is the condition to extract from hTbl and stack
# Value: data frame with (condData)
#
# Developer: P. Lemkin, G. Thornwall
# Date: 6/10/2003
##
mae.getCondHData<- function(hTbl, n)
{ # mae.getCondHData
  hT <- hTbl$allCondNames[2:length(hTbl$allCondNames)]==hTbl$condNames[n]
  condData <- hTbl$hData[, hT]
  return(condData=condData)
} # end of mae.getCondHData