Revision Functionality

[andykrause]

Ability to calculate the revision-ness.

Need to happen in steadily growing, forward prediction type environment. There is no 'agreed' on method here. Check the literature.

Previous code used:

revisionWrap <- function(indexid.data,
                         index.data){
  
  ind.list <- names(table(indexid.data$usid))
  ind.cap <- list()
  
  for(qq in 1:length(ind.list)){
    
    ind.i <- index.data[grep(ind.list[[qq]], index.data$usid), ]
    
    rev.list <- list()
    for(i in 2:120){
      rev.list[[i-1]] <- sd(ind.i[ind.i$time==i,]$value)
    }
    ind.cap[[qq]] <- mean(unlist(rev.list), na.rm=TRUE)
  }
  names(ind.cap) <- ind.list
  
  ind.df <- data.frame(usid=names(ind.cap),
                       rev=unlist(ind.cap))
  
  return(ind.df)
  
}

[andykrause]

Should this happen automatically in a time-wrap situation? Or as a wrapper thereoef?