Error in tapply

General
1

Hello everyone,

I´m trying to run the weighted log rank test and i´m having the following error:

>  PAIS_LOG <- svylogrank(Surv(TEMPO, EVENTO) ~ PAIS, design = surveydesign)
Error in tapply(1:NROW(x), list(factor(strata)), function(index) { : 
  arguments must have same length
In addition: Warning messages:
1: In regularize.values(x, y, ties, missing(ties), na.rm = na.rm) :
  collapsing to unique 'x' values
2: In x/as.vector(design$prob) :
  longer object length is not a multiple of shorter object length
3: In x/design$prob :
  longer object length is not a multiple of shorter object length