##
# mae.getVSfromHScondData() - extract vertically stacked 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: vertically stacked data frame with (scn)
# If it is already vertically stacked, then just return hTbl.
##
mae.getVSfromHScondData<- function(hTbl, n)
{ # mae.getVSfromHScondData
  if(hTbl$isVertStacked)
    return(scn=hTbl$hTbl)
  p <- hTbl$hData[hTbl$allCondNames==hTbl$condNames[n]]
  scn <- stack(p)
  return(scn=scn)
} # end of mae.getVSfromHScondData

\name{mae.getVSfromHScondData}
\alias{mae.getVSfromHScondData}
\title{ A function to extract a vertically stacked condition 
  from a horizontally stacked condition}

\description{
A function that extracts a vertically stacked condition n from 
horizontally stacked data frame hTbl where hTbl was 
read with readHSfile().
}

\usage{
mae.getVSfromHScondData(vTbl, n)
}

\arguments{
    \item{hTbl}{The horizontally stacked multi-class table}
    \item{n}{The condition to extract from vTbl and stack}

}
\details{
    \code{mae.getVSfromHScondData} 
A function that extracts a vertically stacked condition n from 
horizontally stacked data frame hTbl where hTbl was 
read with readHSfile().
}

\value{
A list with components
  \item{mae.condData}{vertically stacked data frame of condition data} 
}

\references{ }
 
\author{ Peter Lemkin, Greg Thornwal}

\date{ 06/12/2003 }


\examples{
#  ...

}
\keyword{ }