isaakiel / aoristaar Goto Github PK

In case of uncorrected run, the function uses the same logic like for the correction, resulting in unnecessary long processing time. Have to be improved.

From a mail I received (thanks, Ula):

Can I change somehow (in function construction) the range of the resulting periods. I would like to count the data not for 1 year resulting periods, but for 100 years. I managed to get to the function, but I had some problems with finding how to switch it.

And, after I proposed summing the values up within the desired interval:

It would be nice if such a function would be implemented for some less mathematical humanists.

So, can easily be considered before release.

Salut :)

I tried to calculate Aorisitic sums using classic BCE from to data. However, BCE values for starting periods are larger than the values for the end of the period. In this case the calculation fails.

"Failing":

> from <- c(3100,2800,4100,3100,3100,4100,2800,4100,4100,4100)
> to <- c(2600,2250,3100,2600,2800,3000,2250,3100,3100,3000)
> head(aorist(from = from, to = to))
  date sum
1 2800 NaN
2 2801 NaN
3 2802 NaN
4 2803 NaN
5 2804 NaN
6 2805 NaN

"Working":

> from <- c(3100,2800,4100,3100,3100,4100,2800,4100,4100,4100)
> to <- c(2600,2250,3100,2600,2800,3000,2250,3100,3100,3000)
> head(aorist(from = to, to = from))
  date         sum
1 2250 0.003629764
2 2251 0.003629764
3 2252 0.003629764
4 2253 0.003629764
5 2254 0.003629764
6 2255 0.003629764