getTimeShiftIndex <-
function(my.time.data,
my.matrix,
time.shift=365,
time.buffer=30) {
(-20:20)[which.max(sapply(-20:20, function(x) my.matrix@Version[['Matrix_Information']][['SGPt']][['MAX_TIME']]+time.buffer+time.shift*x - my.time.data) > 0)]
} ### END getTimeShiftIndex
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.