rsq <- function(formula, Data1, indices) {
d <- Data1[indices,] # allows boot to select sample
fit <- lm(formula, Data1=d)
return(summary(fit)$r.square)
}
results = boot(data = Data1, statistic = rsq, R = 500)
Когда я выполняю код, я получаю следующую ошибку:
Error in Data1[indices,] : incorrect number of dimensions
Справочная информация: я создаю прогнозную модель с использованием линейных регрессий.Я хотел бы протестировать свою прогнозную модель и, проведя некоторые исследования, решил использовать метод начальной загрузки.