Description Usage Arguments Details Value See Also Examples
biasco returns bias corrected data as an object of type BiascoTimeSeries.
Several methods of different complexity are available in the package (see details).
1 |
obs.in |
A vector containing the reference data. |
ctrl.in |
A vector of simulated data used to calibrate the method |
scen.in |
A vector of data for the scenario period simulation |
type |
String defining the type of adjustment. Currently
|
method |
Method to be used to bias adjust |
... |
Additional parameters used to handle the behavior of specific bias correction methods. |
The following univariate methods have currently been implemented in this package:
M1: Simple delta change scaling of time mean
M2: Delta change scaling on mean and standard deviation. If type = ratio, then Engen-Skaugen algorithm is used.
M3: Delta change scaling on mean, standard deviation and skewness. If type = ratio, M3 corresponds to delta change scaling of mean and standard deviation using.
M4: Non-parametric quantile mapping applied in the delta change mode
M5: Parametric quantile mapping applied in the delta change mode
M6: As M1 but applied in the bias correction mode
M7: As M2 but applied in the bias correction mode
M8: As M3 but applied in the bias correction mode
M9: As M4 but applied in the bias correction mode
M10: As M5 but applied in the bias correction mode
An object of type BiascoTimeSeries,
which contains the adjusted data and parameter values related to a particular method.
biasco2d for two-dimensional bias correction of temperature and precipitation
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | library(lubridate)
library(BCUH)
data("obs_data")
data("model_data")
#Create objects which contain the bias corrected data
bc6 <- biasco(varsO[,"temp"], varsC[,"temp"], varsC[,"temp"], type = "abs", method = "M6")
bc9 <- biasco(varsO[,"temp"], varsC[,"temp"], varsC[,"temp"], type = "abs", method = "M9")
#Visualise the results
plot(quantile(dat(adj(bc6)), seq(0,1,0.01)), type = "l",
main="Quantile plot", xlab = "%", ylab = "Celcius", ylim = c(10,30))
lines(quantile(dat(adj(bc9)), seq(0,1,0.01)), col = "black",lty=2)
lines(quantile(varsO[,"temp"], seq(0,1,0.01)), col = "red")
lines(quantile(varsC[,"temp"], seq(0,1,0.01)), col = "blue")
lines(quantile(varsC[,"temp"], seq(0,1,0.01)), col = "blue", lty = 2)
legend("topleft", c("M6","M9","Obs","Ctrl","Scen"),
col = c("black","black","red","blue","blue"), lty = c(1,2,1,1,2))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.