Оператор If-else в кодировке R не сработал

#r #if-statement #r #оператор if Вопрос: Я сделал кодирование в R, как показано ниже, data1<-c(25,35,60,79,50) data2<-c(100,150,170,200,1000) g1=sort(data1) g2=sort(data2) ybar1<-mean(g1) ybar2<-mean(g2) #BIWEIGHT med1=median(g1) med2=median(g2) mad1=1.4826*(median(abs(g1-med1))) mad2=1.4826*(median(abs(g2-med2))) u1=(g1-med1)/(9*mad1) u2=(g2-med2)/(9*mad2) #cat("nu1:",u1) u=rbind(u1,u2) print(u)…