объединить три функции, используя г

Question

Здравствуйте, я создал следующие функции, которые проверяют надежность. однако я хочу объединить их в одну функцию, такую ​​как: надежность <-функция (х), чтобы они дали мне матрицу 1-0, показывающую каждый ответ для каждой функции с надписью «надежность». потому что каждый давал мне ответ самостоятельно. если какие-то идеи помогут. </p>

splithalf1<- function( data ) {   

      n<-ncol(data)
      tek<-data[ , seq(1,n , 2)]
     cift<-data[ , seq(2 ,n , 2)]
      top_single<-rowSums(single)
      top_double<-rowSums(double)
      kor<-cor(top_single,top_double)
       r<-2*kor / (1+kor)
       return(r)
}

cr.alpha2<- function(x) {
       n<-ncol(x)
      kov<-cov(x)
      kov1<-as.vector(kov)
      kov2<-unique (kov1)
      kov3<- kov2[-1]
      kov4<-sum(kov3)/length(kov3)
      pay<- n*kov4
      payd<- (1 + (n-1)*kov4)
       alpha<-pay/payd
       return(alpha)
}

kr20<-function(x) {
   n<-ncol(x)
  pq<-function(x) { 
     p<-mean(x) 
     q<-1-p
     res<-p*q 
     return (res)
  }
   pay<- sum(apply(x,2,pq))
   top<-rowSums(x)
   payda<-var(top)
   result<- n /(n-1)* (1-(pay/payda))
   return(result)
}

Answer 1

Стек не является сервисом кодирования! Однако в качестве учебного пособия я предложу несколько вещей, которые, пожалуй, являются целью вашего учителя в первую очередь!

1. Изучите фундаментальные R. Есть бесчисленное множество (хорошо многочисленные, но неисчислимые для всех практических целей) ресурсы бесплатно на net. Одна хорошая (IMO), бесплатная книга для начинающих - R для Data Science , с которой можно ознакомиться здесь: https://r4ds.had.co.nz/

2. проверить присвоение возвращаемых значений функции переменным.

3. проверить функции c () и matrix ().