"ошибка индексации" при попытке связать файл .md? Как исправить? - PullRequest
Новая
       18

"ошибка индексации" при попытке связать файл .md? Как исправить?

0 голосов
/ 25 марта 2019

Кажется, что в моем файле rmarkdown есть проблема, связанная с этим конкретным фрагментом кода: 

library(tidyverse)

df <- data.frame(female = c("Republican", "Republican", "Democrat", "Democrat"),
                 male = c("Republican", "Democrat", "Republican", "Democrat"),
                 n = c(100, 50, 50, 150))

xtabs(n ~ female + male, df)
#             male
# female      Democrat     Republican
#  Democrat        150     50
#  Republican       50     100

Я пытаюсь вычислить вероятность того, что реп-женщина будет с реп-человеком, и наоборот.Так что в этом примере это будет (100/150), но я не знаю, как это сделать в отношении переменных.

Я пробовал это: 

Fem <- colSums(df[ , "Republican", drop = FALSE] ) / sum(colSums(df))
Fem
Men <- rowSums(df["Republican", , drop = FALSE ] ) / sum(rowSums(df))
Men

Этопрекрасно работает в коде и производит вероятности, но отказывается компилировать, когда я пытаюсь связать его в файл MD.Там написано: 

Error in `[.default`(df, , "Republican", drop = FALSE) : subscript out of bounds
Calls: <Anonymous> ... colSums -> -> is.data.frame -> [ -> [.table -> NextMethod
In addition: Warning messages:
1: package 'tidyverse' was built under R version 3.5.2
2: package 'tidyr' was built under R version 3.5.2
3: package 'forcats' was built under R version 3.5.2
Execution Halted

Может ли кто-нибудь помочь мне разобраться, где я напутал?Спасибо!

...