{"id":2330,"date":"2021-07-12T01:52:07","date_gmt":"2021-07-11T16:52:07","guid":{"rendered":"http:\/\/141.164.34.82\/?p=2330"},"modified":"2022-02-03T17:12:51","modified_gmt":"2022-02-03T08:12:51","slug":"%ec%82%ac%ea%b1%b4%ea%b9%8c%ec%a7%80-%ea%b1%b8%eb%a6%b0-%ec%8b%9c%ea%b0%84%ec%9d%80","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=2330","title":{"rendered":"\uc0ac\uac74\uae4c\uc9c0 \uac78\ub9b0 \uc2dc\uac04\uc740?"},"content":{"rendered":"
\n

Time to Event<\/h1>\n<\/div>\n
\n

\ubb38\uc81c<\/h2>\n

\ub2e4\uc74c\uc740 Facebook\uc5d0\uc11c \ubcf8 \ubb38\uc81c\uc785\ub2c8\ub2e4.\u00a0\uadf8\ub8f9 \ub9c1\ud06c<\/a>. \uae00\uc740 \uc5b4\ub5bb\uac8c \ub9c1\ud06c\ub97c \uac78\uc5b4\uc57c \ud558\ub294\uac00? \uc5b4\uca0b\ub4e0,<\/p>\n

\ub2e4\uc74c\uc758 \ub370\uc774\ud130 \ud504\ub808\uc784\u00a0df<\/code>\uc5d0\uc11c 1\uc740 \uc0ac\uac74\uc774 \uc77c\uc5b4\ub0ac\uc74c\uc744 \uc758\ubbf8\ud55c\ub2e4. 0\uc740 \uc0ac\uac74\uc774 \uc77c\uc5b4\ub098\uc9c0 \uc54a\uc558\uc74c\uc744 \uc758\ubbf8\ud55c\ub2e4. NA\ub294 \uacb0\uce21\uac12\uc778\uac00? \uc5b4\uca0b\ub4e0 0\uc5d0\uc11c \ucd5c\ucd08\ub85c 1\uc774 \ub418\uae30\uae4c\uc9c0 \uacbd\uacfc \uc2dc\uac04\uc744 \uad6c\ud574\uc57c \ud55c\ub2e4.<\/p>\n

mat = matrix(c(0<\/span>,0<\/span>,0<\/span>,1<\/span>,1<\/span>,1<\/span>,NA<\/span>,\r\n               0<\/span>,0<\/span>,0<\/span>,0<\/span>,1<\/span>,NA<\/span>,NA<\/span>,\r\n               0<\/span>,0<\/span>,0<\/span>,0<\/span>,NA<\/span>,NA<\/span>,NA<\/span>,\r\n               NA<\/span>,0<\/span>,1<\/span>,0<\/span>,NA<\/span>,NA<\/span>,NA<\/span>,\r\n               NA<\/span>,0<\/span>,0<\/span>,0<\/span>,0<\/span>,0<\/span>,0<\/span>),\r\n             nrow=5<\/span>, ncol=7<\/span>, byrow=TRUE<\/span>)\r\n\r\ndf = data.frame(mat)\r\ncolnames(df) = c(as.character(2005<\/span>:2011<\/span>))\r\ndf<\/code><\/pre>\n
\n
\n\n\n\n
<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n\n\n\n\n\n\n
\n
2005<\/div>\n
<dbl><\/div>\n<\/th>\n
\n
2006<\/div>\n
<dbl><\/div>\n<\/th>\n
\n
2007<\/div>\n
<dbl><\/div>\n<\/th>\n
\n
2008<\/div>\n
<dbl><\/div>\n<\/th>\n
\n
2009<\/div>\n
<dbl><\/div>\n<\/th>\n
\n
2010<\/div>\n
<dbl><\/div>\n<\/th>\n
\n
2011<\/div>\n
<dbl><\/div>\n<\/th>\n<\/tr>\n<\/thead>\n
0<\/td>\n0<\/td>\n0<\/td>\n1<\/td>\n1<\/td>\n1<\/td>\nNA<\/td>\n<\/tr>\n
0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n1<\/td>\nNA<\/td>\nNA<\/td>\n<\/tr>\n
0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\nNA<\/td>\nNA<\/td>\nNA<\/td>\n<\/tr>\n
NA<\/td>\n0<\/td>\n1<\/td>\n0<\/td>\nNA<\/td>\nNA<\/td>\nNA<\/td>\n<\/tr>\n
NA<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
\n
5 rows<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n
\n
\ud574\ubc95<\/h2>\n
    \n
  1. \uc77c\ub2e8 \ud589\ub82c\ub85c \ub9cc\ub4e0\ub2e4.<\/li>\n
  2. NA<\/code>\ub97c \uc81c\uac70\ud55c\ub2e4.<\/li>\n
  3. cumsum()<\/code>\uc744 \uad6c\ud55c\ub2e4.\u00a0cumsum()<\/code>\uc740 0\uc774 \uc9c0\uc18d\ub41c\ub2e4\uba74 \uacc4\uc18d 0\uc774\uace0, 1\ub85c \ubc14\ub010 \uc774\ud6c4\ubd80\ud130\ub294 1 \uc774\uc0c1\uc774 \ub41c\ub2e4. 1\uc774 \uc0ac\uac74\uc774 \uc77c\uc5b4\ub0a8, 0\uc774 \uc0ac\uac74\uc774 \uc77c\uc5b4\ub098\uc9c0 \uc54a\uc74c, \uadf8\ub9ac\uace0 2,3,4\ub294 \uc0ac\uac74\uc758 \ud69f\uc218\ub97c \uc758\ubbf8\ud55c\ub2e4\uba74\u00a0cumsum()<\/code>\uc744 \uc4f0\uba74 (\uadf8\ub54c \ud3ec\ud568\ud574\uc11c) \uadf8\ub54c\uae4c\uc9c0 \uc77c\uc5b4\ub09c \uc0ac\uac74\uc758 \ud69f\uc218\ub97c \uc758\ubbf8\ud55c\ub2e4\uace0 \ubcfc \uc218 \uc788\ub2e4.<\/li>\n
  4. cumsum()<\/code>\u00a0\uacb0\uacfc 0\uc758 \ud69f\uc218\ub97c \uc13c\ub2e4. \uc989, \uadf8\ub54c\uae4c\uc9c0 \uc77c\uc5b4\ub09c \uc0ac\uac74\uc758 \ud68c\uc218\uac00 1\ubcf4\ub2e4 \uc801\uc740 \uae30\uac04\uc744 \uad6c\ud55c\ub2e4.<\/li>\n<\/ol>\n
    df['time_to_event'<\/span>] = \r\n  apply(as.matrix(df[as.character(2005<\/span>:2011<\/span>)]), \r\n        1<\/span>, \r\n        function<\/span>(x) {\r\n          sum(cumsum(x[!is.na(x)]) == 0<\/span>)\r\n        })\r\n\r\ndf<\/code><\/pre>\n
    \n
    \n\n\n\n
    <\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n\n\n\n\n\n\n
    \n
    2005<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    2006<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    2007<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    2008<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    2009<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    2010<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    2011<\/div>\n
    <dbl><\/div>\n<\/th>\n
    		\n
    time_to_event<\/div>\n
    <int><\/div>\n<\/th>\n<\/tr>\n<\/thead>\n
    0<\/td>\n0<\/td>\n0<\/td>\n1<\/td>\n1<\/td>\n1<\/td>\nNA<\/td>\n3<\/td>\n<\/tr>\n
    0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n1<\/td>\nNA<\/td>\nNA<\/td>\n4<\/td>\n<\/tr>\n
    0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\nNA<\/td>\nNA<\/td>\nNA<\/td>\n4<\/td>\n<\/tr>\n
    NA<\/td>\n0<\/td>\n1<\/td>\n0<\/td>\nNA<\/td>\nNA<\/td>\nNA<\/td>\n1<\/td>\n<\/tr>\n
    NA<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n0<\/td>\n6<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
    \n
    5 rows<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n
     <\/p>\n
     <\/p>\n
     <\/p>\n","protected":false},"excerpt":{"rendered":"
    Time to Event \ubb38\uc81c \ub2e4\uc74c\uc740 Facebook\uc5d0\uc11c \ubcf8 \ubb38\uc81c\uc785\ub2c8\ub2e4.\u00a0\uadf8\ub8f9 \ub9c1\ud06c. \uae00\uc740 \uc5b4\ub5bb\uac8c \ub9c1\ud06c\ub97c \uac78\uc5b4\uc57c \ud558\ub294\uac00? \uc5b4\uca0b\ub4e0, \ub2e4\uc74c\uc758 \ub370\uc774\ud130 \ud504\ub808\uc784\u00a0df\uc5d0\uc11c 1\uc740 \uc0ac\uac74\uc774 \uc77c\uc5b4\ub0ac\uc74c\uc744 \uc758\ubbf8\ud55c\ub2e4. 0\uc740 \uc0ac\uac74\uc774 \uc77c\uc5b4\ub098\uc9c0 \uc54a\uc558\uc74c\uc744 \uc758\ubbf8\ud55c\ub2e4. NA\ub294 \uacb0\uce21\uac12\uc778\uac00? \uc5b4\uca0b\ub4e0 0\uc5d0\uc11c \ucd5c\ucd08\ub85c 1\uc774 \ub418\uae30\uae4c\uc9c0 \uacbd\uacfc \uc2dc\uac04\uc744 \uad6c\ud574\uc57c \ud55c\ub2e4. mat = matrix(c(0,0,0,1,1,1,NA, 0,0,0,0,1,NA,NA, 0,0,0,0,NA,NA,NA, NA,0,1,0,NA,NA,NA, NA,0,0,0,0,0,0), nrow=5, ncol=7, byrow=TRUE) df = data.frame(mat) colnames(df) = c(as.character(2005:2011)) df […]<\/p>\n","protected":false},"author":1,"featured_media":2446,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2021\/07\/pocket-watch-gfb3dd1f60_640.jpg","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2330"}],"collection":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2330"}],"version-history":[{"count":3,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2330\/revisions"}],"predecessor-version":[{"id":2333,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2330\/revisions\/2333"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/2446"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2330"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2330"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2330"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}