... < ;- -c/b)} else {delta < ;- b*b-4*a*c if(delta > 0) { re1 < ;- (-b+sqrt(delta))/2*a re2 < ;- (-b-sqrt(delta))/2*a result < ;- c(re1,re2) } else{if(delta == 0){result < ;- -b/2*a}else{ ... số liệu BMD từ 10 bệnh nhân như sau: -0 .92, 0.21, 0.17, -3 .21, -1 .80, -2 .60, -2 .00, 1.71, 2.12, -2 .11 Để nhập các số liệu này vào R chúng ta có thể sử dụng function c như sau: bmd < ;- c (-0 .92,0.21,0.17 ,-3 .21 ,-1 .80 ,-2 .60 ,-2 .00,1.71,2.12 ,-2 .11) ... library(Hmisc) > bmd < ;- c (-0 .92,0.21,0.17 ,-3 .21 ,-1 .80 ,-2 .60 ,-2 .00,1.71,2.12 ,-2 .11) > # chia biến số bmd thành 2 nhóm và để trong đối tượng group > group < ;- cut2(bmd, g=2) > table(group)...