[SIFromSample] Choosing n2=1 gives an unexpected error #23
Description
> epiEstimOut <- EstimateR(I, T.Start=2:26, T.End=8:32, SI.Sample=sample, method="SIFromSample", n2=1, seed=1)
Error in (temp[[k]])[[1]][, which(T.End > Mean.SI.sample[k])] :
incorrect number of dimensions
An example of the I and sample I used is this csv and this csv respectively, but this doesn't seem to matter.