1is.present <- function(x)
2{
3  if(is.character(x))
4    return(x!="")
5  else
6    return(!is.na(x))
7}
8