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