baseball数据集里有5个变量

baseball[c("Year","RA","RankSeason","NumCompetitors","WorldSeries")]

我想用WorldSeries做因变量，其余任意2个做自变量，用sapply循环得到逻辑回归模型，代码该怎么写呢？