Сочетание клавиш для 'Представления в Обозревателе объектов'

#DATA
set.seed(42)
d = data.frame(snp1 = sample(0:2, 10, TRUE),
               snp2 = sample(0:2, 10, TRUE),
               snp3 = sample(0:2, 10, TRUE))

#Function    
foo = function(x){
    len = length(x)
    D = sum(x == 0)/len
    H = sum(x == 1)/len
    R = sum(x == 2)/len
    p = D + 0.5 * H
    q = R + 0.5 * H
    return(c(p = p, q = q))
}

#Run foo for each column   
sapply(d, foo)
#  snp1 snp2 snp3
#p 0.35 0.4  0.35
#q 0.65 0.6  0.65