R/idData.R

In move: Visualizing and Analyzing Animal Track Data

setGeneric('idData', function(x,i,j,...){standardGeneric('idData')})
setMethod('idData',signature=c('.MoveTrack'),function(x, i,j,...){
	  return(x@idData[i,j,...])
})

setGeneric('idData<-', function(x,i,j,value){standardGeneric('idData<-')})
setMethod('idData<-',signature=c('.MoveTrack'),function(x, i,j,value){
	  x@idData[i,j]<-value
	  validObject(x)
	  return(x)
})
setMethod('idData<-',signature=c(x='.MoveTrack', i='missing',j='missing', value='data.frame'),function(x, i,j,value){
	  slot(x,'idData')<-value
	  return(x)
})