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 restartThe 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