File:KMannotation.png: Difference between revisions

From 太極
Jump to navigation Jump to search
(Brb reverted File:KMannotation.png to an old version)
No edit summary
Line 4: Line 4:
sf <- survfit(Surv(time, status) ~ x, data = aml)
sf <- survfit(Surv(time, status) ~ x, data = aml)
plot(sf, col=c('red', 'black'))
plot(sf, col=c('red', 'black'))
rbind(time=aml$time[aml$x == 'Maintained'], status=aml$status[aml$x == 'Maintained'])
#        [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
# time      9  13  13  18  23  28  31  34  45    48  161
# status    1    1    0    1    1    0    1    1    0    1    0
unique(aml$time[aml$x == 'Maintained'])
#  [1]  9  13  18  23  28  31  34  45  48 161
</pre>
</pre>


The plot is annotated using [https://github.com/ksnip/ksnip ksnip].
The plot is annotated using [https://github.com/ksnip/ksnip ksnip].

Revision as of 17:00, 3 May 2020

Summary

library(survival)
sf <- survfit(Surv(time, status) ~ x, data = aml)
plot(sf, col=c('red', 'black'))

rbind(time=aml$time[aml$x == 'Maintained'], status=aml$status[aml$x == 'Maintained'])
#        [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
# time      9   13   13   18   23   28   31   34   45    48   161
# status    1    1    0    1    1    0    1    1    0     1     0

unique(aml$time[aml$x == 'Maintained'])
#  [1]   9  13  18  23  28  31  34  45  48 161

The plot is annotated using ksnip.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current16:59, 3 May 2020Thumbnail for version as of 16:59, 3 May 2020732 × 546 (58 KB)Brb (talk | contribs)Reverted to version as of 16:57, 3 May 2020 (EDT)
16:58, 3 May 2020Thumbnail for version as of 16:58, 3 May 2020732 × 546 (47 KB)Brb (talk | contribs)Reverted to version as of 21:54, 2 May 2020 (EDT)
16:57, 3 May 2020Thumbnail for version as of 16:57, 3 May 2020732 × 546 (58 KB)Brb (talk | contribs)
21:54, 2 May 2020Thumbnail for version as of 21:54, 2 May 2020732 × 546 (47 KB)Brb (talk | contribs)<pre> library(survival) sf <- survfit(Surv(time, status) ~ x, data = aml) plot(sf, col=c('red', 'black')) </pre>

There are no pages that use this file.

Metadata