R/svk.R

Defines functions svk

Documented in svk

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)
}

Try the RObsDat package in your browser

Any scripts or data that you put into this service are public.

RObsDat documentation built on May 31, 2017, 4:20 a.m.