Question

我正在使用Epi中R帮助指南中的这段代码包装：

# A small bogus cohort
xcoh <- structure( list( id = c("A", "B", "C"),
                  birth = c("14/07/1952", "01/04/1954", 
"10/06/1987"),
                  entry = c("04/08/1965", "08/09/1972", 
"23/12/1991"),
                   exit = c("27/06/1997", "23/05/1995", 
"24/07/1998"),
                   fail = c(1, 0, 1) ),
                 .Names = c("id", "birth", "entry", "exit", 
"fail"),
              row.names = c("1", "2", "3"),
                  class = "data.frame" )

# Define a Lexis object with timescales calendar time and 
age 
Lcoh <- Lexis( entry = list( per=entry ),
            exit = list( per=exit,
                         age=exit-birth ),
     exit.status = fail,
            data = xcoh )

但是我得到这个错误：

Error in Lexis(entry = list(per = entry), exit = list(per = exit, age = exit -  : 
could not find function "Lexis"

有什么想法吗？

Answer 1

首先需要使用以下方法在环境中安装Epi软件包：

install.packages("Epi")

然后需要加载Epi的库。

library(Epi)

因此，您的代码将进行如下修改：

install.packages("Epi")
library(Epi)

xcoh <- structure( list( id = c("A", "B", "C"),
                         birth = c("14/07/1952", "01/04/1954", 
                                   "10/06/1987"),
                         entry = c("04/08/1965", "08/09/1972", 
                                   "23/12/1991"),
                         exit = c("27/06/1997", "23/05/1995", 
                                  "24/07/1998"),
                         fail = c(1, 0, 1) ),
                   .Names = c("id", "birth", "entry", "exit", 
                              "fail"),
                   row.names = c("1", "2", "3"),
                   class = "data.frame" )

# Define a Lexis object with timescales calendar time and 

Lcoh <- Lexis( entry = list( per=entry ),
               exit = list( per=exit,
                            age=exit-birth ),
               exit.status = fail,
               data = xcoh )

注意：我已删除了age行。假设它与此处发布的问题无关。

R中找不到Lexis功能

1 个答案: