inst/examples/kendall4_variables.R

In sigbertklinke/rscc: R Source Code Similarity Evaluation by Variable/Function Names

 kendall2<-function(x_456842,y_456842) {
   n_456842 <- length(x_456842)
   if (n_456842<=0) {
      print('Wektor x jest pusty lub ma jeden element!')
      return(NA)
   } else if(n_456842!=length(y_456842)) {
      print('Wektory sa roznej dlugosci!')
      return(NA)
   } else {
      c_456842<-0
      for (i_456842 in 1:(n_456842-1)) {
         for (j_456842 in (i_456842+1):n_456842) {
            if(x_456842[i_456842]==x_456842[j_456842]) {
               print('wartosci x nie sa rozne!')
               return(NA)
               break
            }
            if(y_456842[i_456842]==y_456842[j_456842]) {
               print('wartosci y nie sa rozne!')
               return(NA)
               break
            }
            if(x_456842[i_456842]>x_456842[j_456842] & y_456842[i_456842]>y_456842[j_456842]) c_456842 <- c_456842+1
            if(x_456842[i_456842]<x_456842[j_456842] & y_456842[i_456842]<y_456842[j_456842]) c_456842 <- c_456842+1
         }
      }
     return(2*c_456842/(n_456842*(n_456842-1)/2)-1) 
   }
}