check_dims（x = x，y = y）中的错误：nrow（x）> 1不是TRUE-取消打包R

Question

我需要使用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