Ошибка в check_dims (x = x, y = y): nrow (x)> 1 не ИСТИНА - Пакет Dissever R - PullRequest
0 голосов
/ 03 апреля 2020

Мне нужно выполнить процесс уменьшения масштаба в спутниковом изображении с помощью пакета 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

...