R语言*apply函数在lm等拟合函数上该怎么用？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我对apply家族的FUN参数还不怎么了解。FUN如果有两个以上的参数，好像只要在后面补充就行了，可如果是y~x之类的怎么办，具体就是在运用*apply函数时，如果FUN参数是lm该怎么办？求高手指导一下。。。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：apply函数 apply appl R语言 App

# example 1
mtcars.list <- split(mtcars, mtcars$cyl)
mylm <- function(x, form, me) lm(form, x, method = me)
lm.list1 <- lapply(mtcars.list, mylm, mpg~hp+wt, "qr")

# example 2 - use package plyr - all ply functions have consistent syntax
library(plyr)
lm.list2 <- dlply(mtcars, .(cyl), function(x) {
  lm(mpg~hp+wt, x)
})

谢谢