我正在尝试创建一个使用survfit-object中使用的数据的函数。
示例：
library(survival)
fit <- survfit(Surv(time, status) ~ factor(sex), data = subset(lung, ph.ecog <=1))
fit$call[3] # This gives me the data part of the survfit function
> subset(lung, ph.ecog <= 1)()
我想使用fit $ call [3]创建数据集：
tempdata <- subset(lung, ph.ecog <= 1)
其中'子集（肺，ph.ecog <= 1）'部分是从幸存对象中提取的。
tempdata <- do.call(as.character(fit$call)[3]) # Doesn't work
答案 0 :(得分：2)
您应该使用<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<select id="pList" class="formSelectCity form-control">
<option value="65064">swastik-cottage</option>
<option value="65063">snow-crown-cottage</option>
<option value="65009">white-pearl-cottage</option>
<option value="65061">rana-cottage</option>
<option value="65097">hill-view-cottage</option>
<option value="65103">arjun-kutir-cottage</option>
</select>并删除括号：
eval