如何解决为什么当我尝试使用map时nlme找不到.x?
我正在尝试使用包含模型的列创建嵌套的小标题。我成功地使用nlsList模型创建了列。我无法使用相应的nlme创建列。
即使我提取了一个nlsList元素并尝试在没有map()的情况下使用它,它也会失败。 我很沮丧。
library(nlme)
fm1 = nlsList(uptake ~ SSasympOff(conc,Asym,lrc,c0),data = CO2,start = c(Asym = 30,lrc = -4.5,c0 = 52))
# str(CO2)
gCO2 <- CO2 %>%
dplyr::group_by(Treatment) %>%
nest() %>%
mutate(gdat = map(data,~ groupedData(uptake ~ conc | Plant,data = .x)))
gCO2
# # A tibble: 2 x 3
# # Groups: Treatment [2]
# Treatment data gdat
# <fct> <list> <list>
# 1 nonchilled <tibble [42 × 4]> <tibble [42 × 4]>
# 2 chilled <tibble [42 × 4]> <tibble [42 × 4]>
map(gCO2$gdat,~class(.)) #OK?
gCO2 <- gCO2 %>%
mutate(nlsLst1 =
map(gdat,~ nlsList(uptake ~ SSasympOff(conc,data = .x,c0 = 52))))
map(gCO2$nlsLst1,~class(.)) #OK?
gCO2 <- gCO2 %>%
mutate(nlme1 = map(nlsLst1,~nlme(model = .x,random = Asym ~ 1)))
# Error: Problem with `mutate()` input `nlme1`.
# x object '.x' not found
# ℹ Input `nlme1` is `map(nlsLst1,~nlme(model = .,random = Asym ~ 1))`.
# ℹ The error occurred in group 1: Treatment = "nonchilled".
# Run `rlang::last_error()` to see where the error occurred.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。