R/FreelistTable.MaxSal.R

Defines functions FreeListTable.MaxSal

Documented in FreeListTable.MaxSal

#' @export

FreeListTable.MaxSal <-
function(mydata,CODE="CODE",Order="Order",Salience="Salience", Subj="Subj",subjNum,CODEnum){
  if(any(mydata[,Subj]==subjNum & mydata[,CODE]==CODEnum) ){    
    ret<- max(mydata[which(mydata[,Subj]==subjNum & mydata[,CODE]==CODEnum),Salience])
    return(ret)
  }else{
    return(0)
  }  
}
alastair-JL/AnthroTools documentation built on Aug. 29, 2024, 9:36 a.m.