if (FALSE) {
set.seed(123)
# creating random data (three predictors)
lon = rnorm(50,0,1)
lat = rnorm(50,40,1)
dcoast = rnorm(50,200,50)
prec = rnorm(1*50, mean = 1.2, sd = 6)
prec[prec<0] <- 0
# precipitation column should be call as "val"
data_full <- data.frame(lon = lon, lat = lat, dcoast = dcoast, val = prec)
# parameters for learner_rf
ref = data_full[-1, ]
can = data_full[1, ]
covars = c("lon", "lat", "dcoast")
learner_rf(ref = ref, can = can, covars = covars)
# case when "prec" is full wet
prec = rnorm(1*50, mean = 1.2, sd = 6)
prec[prec<0] <- 1
data_full <- data.frame(lon = lon, lat = lat, dcoast = dcoast, val = prec)
# parameters for learner_rf
ref = data_full[-1, ]
can = data_full[1, ]
covars = c("lon", "lat", "dcoast")
learner_rf(ref = ref, can = can, covars = covars)
}
Run the code above in your browser using DataLab