Я пытаюсь запустить следующий код, но получаю эту ошибку Ошибка в unclass (x) [i,, drop = FALSE]: (нижний индекс) слишком длинный логический нижний индекс
library ( survival )
library(KMsurv)
data("tongue")
tongue
Weibull.1<-survreg(Surv(times,censor)~1, data=tongue, subset=(group==1),scale=1,dist="weibull")
Weibull.2<-survreg(Surv(times,censor)~1, data=tongue, subset=(group==2),scale=1,dist="weibull")
Как можно ли избежать этой ошибки?