ZOOTranslate <- function(a) { return (.Call("ZOOTranslate",a)) } ZOOUpdateStatus <- function(a,b) { .Call("ZOOUpdateStatus",a,as.numeric(b)) }