disaggregate.ts.
In order to disaggregate, a distribution of the
asterisks is required. In this
implementation, the distribution is estimated
using a surrogate serie. In
general terms the surrogate serie is very
carefully drafted.
disaggregate.MARN(stream = NULL, reference = NULL,
na.action = "error", asterisk = -9999, date.eps = 0.004,
float.eps = 1e-04, return.incomplete = TRUE)ts object.
ts object.
"mean"
("average", "warning", "continue") or
"error". In the first case the sampled
distribution is the average. On the second, the process is
stoped, if return.incomplete is true then
the progress of disaggregation is returned.
reference <- pr[[1]]
k = 1
restart:
for ( station in 1:k ) {
reference <- desagregate.MARN(pr[[k]],
reference, return.incomplete=TRUE)
}
if ( reference is not yet fully desagregated ) { k <- k + 1 }
goto restart
The main feature of this procedure is that it always tries to
use the best serie first then the second best, etc.
It may not complete the task if the sample distribution contains
NAs for all 15 stations. Under this precarious
condition, artificial or external information can be used.
disaggregate.ts