R/svk.R

In RObsDat: Store your observations: R-Package to the Observations Data Model from CUAHSI

svk <- function(the.vect, tablename, rownum=1, object){
	if(is.null(the.vect)){
		to.ret <- IgetNo(object, tablename)
	} else if(is.na(the.vect[rownum])){
		to.ret <- IgetNo(object, tablename)
	} else {
		to.ret <-the.vect[rownum]
	}
	return(to.ret)
}