Проверка правильности с использованием контролей с известным генотипом - PullRequest
0 голосов
/ 30 января 2020

Пожалуйста, помогите !!

У меня есть следующий фрейм данных (с именем Final_APOL1). У меня есть код, который проходит через выходные файлы Bio-Rad PCR для генерации окончательного генотипа APOL1. Контроли с известным генотипом помещают в лунки E01, E02, F01, F02, G01, G02, H01 и H02. У меня есть отдельный фрейм данных (названный Validation_controls), содержащий известные / правильные генотипы, которые должны быть найдены в этих лунках.

Мне нужен код для проверки и подтверждения того, что лунки в обоих фреймах данных совпадают, и способ, которым это должно быть для пользователя, использующего окончательный код

1 Ответ

0 голосов
/ 06 февраля 2020
Final <- Final %>% mutate(`Control_Validation` = case_when(
      `Well` %in% c("E01", "E02") & (`Final genotype of APOL1` == "G1^{GM}/G2") ~ "Match",
      `Well` %in% c("F01", "F02") & (`Final genotype of APOL1` == "G1^{GM}/G0") ~ "Match",
      `Well` %in% c("G01", "G02") & (`Final genotype of APOL1` == "G0/G2") ~ "Match",     
      `Well` %in% c("H01", "H02") & (`Final genotype of APOL1` == "G1^{GM}/G1^{GM}") ~ "Match"))   
...