R/asyr_tick_table.R

In JARS3N/asyr: asyr

tick_table<-function(u){
  start=as.numeric(xpathSApply(u,"//AssayDataSet//RateSpans//StartTickIndex",xmlValue))
  end=as.numeric(xpathSApply(u,"//AssayDataSet//RateSpans//EndTickIndex",xmlValue))
  Measure=seq_along(start)
  df<-Map(function(x,y,z){
    data.frame(Tick=seq(from=x,to=y,by=1),Measure=z)
  },x=start,y=end,z=seq_along(start))
  do.call('rbind',df)
}