error in ten

[fkgruber]

Using ten on a valid survfit object I get:

 ten(survfit(Surv(y, cens)~x, data = toplotsim))

Error in if (attr(attr(data, "terms"), "response")) {  : 
  argument is of length zero

printing the survfit object I get:

Call: survfit(formula = Surv(y, cens) ~ x, data = toplotsim)
      n events median 0.95LCL 0.95UCL
x=0 376    121   93.4      83     123
x=1 269     49     NA     137      NA

I get a similar error:

p1 <- autoplot(survfit(Surv(time, delta) ~ type, data = kidney), type="single", survSize=2, palette="Pastel1", fillLineSize=0.1, alpha=0.4)$plot

Error in if (is.nan(times1[1])) times1 <- times : argument is of length zero

[s-andrews]

Autoplot fails for me too with the same error as ghost:

library(tidyverse)
library(survival)

read_delim("lung_survival.tsv") -> lung
survfit(Surv(time,status) ~ 1,data=lung) -> lung_fit
autoplot(lung_fit)

Error in if (is.nan(times1[1])) times1 <- times : 
  argument is of length zero

This is the data

>lung_fit
Call: survfit(formula = Surv(time, status) ~ 1, data = lung)

       n events median 0.95LCL 0.95UCL
[1,] 167    120    310     285     371

> lung
# A tibble: 167 × 10
    inst  time status   age   sex ph.ecog ph.karno pat.karno meal.cal wt.loss
   <dbl> <dbl>  <dbl> <dbl> <dbl>   <dbl>    <dbl>     <dbl>    <dbl>   <dbl>
 1     3   455      2    68     1       0       90        90     1225      15
 2     5   210      2    57     1       1       90        60     1150      11
 3    12  1022      1    74     1       1       50        80      513       0
 4     7   310      2    68     2       2       70        60      384      10
 5    11   361      2    71     2       2       60        80      538       1
 6     1   218      2    53     1       1       70        80      825      16
 7     7   166      2    61     1       2       70        70      271      34
 8     6   170      2    57     1       1       80        80     1025      27
 9    12   567      2    57     1       1       80        70     2600      60
10    22   613      2    70     1       1       90       100     1150      -5