Я новичок в R и пытаюсь найти наилучший возможный показатель, чтобы использовать его в формуле, чтобы мой R2 был самым высоким. Когда я пытаюсь написать приведенную ниже формулу, она просто выдает результаты как
x.rsquare = rep(NA, 5)
for(i in seq(from =2, to = 2.12, by= 0.1)) {
mydata$pyb <- ((mydata$R)^i)/(((mydata$R)^i)+((mydata$RA)^i))
PYB_fit <- lm(wp ~ pyb, data = mydata)
rsq <- summary(PYB_fit)$r.squared
x.rsquare[i] = summary(PYB_fit)$r.squared
next
}
x.rsquare
Когда я пытаюсь это сделать, я получаю результат ниже
[1] NA 0,8781753 NA NA NA
но я хочу результат вот так
Экспоэнент R2
2 0,8781
2,1 0,8781753
Подскажите, пожалуйста, где я ошибся