search

emmakopp1 / phylogeny_trust

This project aims to validate (or invalidate) a phylogenetic tree estimation.
0 stars 0 forks source link

Code question #20

Closed emmakopp1 closed 2 months ago

emmakopp1 commented 2 months ago

Si tu as : 

tt <- data.frame(
  freqParameter.s.1PL.1 = 0.8225605,
  freqParameter.s.1PL.2 = 0.1774395,
  freqParameter.s.1SG.1 = 0.8251915,
  freqParameter.s.1SG.2 = 0.1748085,
  freqParameter.s.2PL.1 = 0.9700352,
  freqParameter.s.2PL.2 = 0.02996484,
  freqParameter.s.2SG.1 = 0.9524131,
  freqParameter.s.2SG.2 = 0.0475869,
  freqParameter.s.3SG.1 = 0.9763907,
  freqParameter.s.3SG.2 = 0.02360927
)

comment ferais-tu avec tidyverse pour calculer pi0 = mean("les colonnes qui terminent par "1") et pi1 = mean("les colonnes qui terminent par "2") ?