Мне нужно выполнить процесс уменьшения масштаба в спутниковом изображении с помощью пакета Dissever, но я не могу из-за ошибки в check_dims (x = x, y = y): nrow (x)> 1 не TRUE
.default_control_init <- caret::trainControl(
method = 'cv',
number = 5#,
#verboseIter = TRUE)
соответствует одной модели для всего учебного набора
.default_control_iter <- caret::trainControl(method = 'rf')
.create_tune_grid <- function(model, tune_length) {
params <- modelLookup(model)$parameter
grid <- expand.grid(lapply(1:length(params), function(x) 1:tune_length))
names(grid) <- as.character(params)
grid}
Загрузить набор данных Edgeroi (см.? Edgeroi)
data(edgeroi)
Построить набор данных Edgeroi (используя растровый пакет)
library(raster)
plot(bio) # coarse resolution layer
plot(stack1) # fine resolution predictors
Запустите рассекатель, используя простую линейную модель.
В этом случае мы выполняем большую выборку (p = 0,05), чтобы
сократить время выполнения
rf_cub <- dissever(
coarse = bio,
fine = stack1,
method = "rf",
min_iter = 1, max_iter = 10,
p = 0.05)
Ошибка в check_dims (x = x, y = y): nrow (x)> 1 не TRUE