Running ‘test_data_frame.R’ [2s/3s]
  Running ‘test_gowerDind.R’ [2s/2s]
  Running ‘test_impNA.R’ [2s/3s]
  Running ‘test_kNN.R’ [2s/3s]
Running the tests in ‘tests/test_data_frame.R’ failed.
Complete output:
  > # irmi should work on data_frame
  > # 
  > # Author: Alexander Kowarik
  > ###############################################################################
  > # sourceD("/Users/alex/git/VIM/R/")
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(VIM)
  Loading required package: colorspace
  Loading required package: grid
  Loading required package: data.table
  
  Attaching package: 'data.table'
  
  The following objects are masked from 'package:dplyr':
  
      between, first, last
  
  VIM is ready to use. 
   Since version 4.0.0 the GUI is in its own package VIMGUI.
  
            Please use the package to use the new (and old) GUI.
  
  Suggestions and bug-reports can be submitted at: https://github.com/alexkowa/VIM/issues
  
  Attaching package: 'VIM'
  
  The following object is masked from 'package:datasets':
  
      sleep
  
  > 
  > test_data = data_frame(a = c(1, 2, 3, NA, 5), b = c(2, 1, NA, 5, 5), c = c(NA, 2, 1, 4, 3))
  > identical(as.data.frame(irmi(test_data,noise=FALSE)),irmi(as.data.frame(test_data),noise=FALSE))
  Error in `[<-.data.frame`(`*tmp*`, is.na(data.y[, i]), i, value = c(b = 2.25)) : 
    replacement has 1 row, data has 0
  Calls: identical ... kNN_work -> dist_single -> gowerD -> [<- -> [<-.data.frame
  Execution halted
Running the tests in ‘tests/test_gowerDind.R’ failed.
Complete output:
  > # gowerD and gowerDind should give the same result
  > # 
  > # Author: alex
  > ###############################################################################
  > library(VIM)
  Loading required package: colorspace
  Loading required package: grid
  Loading required package: data.table
  VIM is ready to use. 
   Since version 4.0.0 the GUI is in its own package VIMGUI.
  
            Please use the package to use the new (and old) GUI.
  
  Suggestions and bug-reports can be submitted at: https://github.com/alexkowa/VIM/issues
  
  Attaching package: 'VIM'
  
  The following object is masked from 'package:datasets':
  
      sleep
  
  > x <- data.frame(x=rnorm(100),y=rnorm(100),z=rnorm(100))
  > y <- data.frame(x=rnorm(100),y=rnorm(100),z=rnorm(100))
  > d1 <- gowerD(x,y,weights=rep(1,3),numerical=c(1,2),factors = vector(),orders=vector(),
  +     mixed=vector(),levOrders=vector(),mixed.constant=0)
  Error in `[<-.data.frame`(`*tmp*`, is.na(data.x[, i]), i, value = c(x = 1.46114332066584)) : 
    replacement has 1 row, data has 0
  Calls: gowerD -> [<- -> [<-.data.frame
  Execution halted
Running the tests in ‘tests/test_impNA.R’ failed.
Complete output:
  > # Simple test for makeNA and impNA
  > # 
  > # Author: alex
  > ###############################################################################
  > 
  > 
  > library(VIM)
  Loading required package: colorspace
  Loading required package: grid
  Loading required package: data.table
  VIM is ready to use. 
   Since version 4.0.0 the GUI is in its own package VIMGUI.
  
            Please use the package to use the new (and old) GUI.
  
  Suggestions and bug-reports can be submitted at: https://github.com/alexkowa/VIM/issues
  
  Attaching package: 'VIM'
  
  The following object is masked from 'package:datasets':
  
      sleep
  
  > data(sleep)
  > newsamp <- sleep[1:10,]
  > newsamp[is.na(newsamp)] <- 999999
  > # only missing values (999999) should be imputed (e.g. in the first 10 rows of the imputed
  > # data set
  > 
  > ## checking kNN
  > sI <- kNN(rbind(newsamp,sleep),impNA = FALSE,variable=colnames(sleep),makeNA = rep(999999,ncol(sleep)))
  Error in `[<-.data.frame`(`*tmp*`, is.na(data.x[, i]), i, value = c(BodyWgt = 2.00000075142828)) : 
    replacement has 1 row, data has 0
  Calls: kNN ... kNN_work -> dist_single -> gowerD -> [<- -> [<-.data.frame
  Execution halted
Running the tests in ‘tests/test_kNN.R’ failed.
Complete output:
  > library(VIM)
  Loading required package: colorspace
  Loading required package: grid
  Loading required package: data.table
  VIM is ready to use. 
   Since version 4.0.0 the GUI is in its own package VIMGUI.
  
            Please use the package to use the new (and old) GUI.
  
  Suggestions and bug-reports can be submitted at: https://github.com/alexkowa/VIM/issues
  
  Attaching package: 'VIM'
  
  The following object is masked from 'package:datasets':
  
      sleep
  
  > d <- data.frame(x=LETTERS[1:6],y=as.double(1:6),z=as.double(1:6),w=ordered(LETTERS[1:6]))
  > d <- rbind(d,d)
  > setna <- function(d,i,col=2){
  +   d[i,col] <- NA
  +   d
  + }
  > ## Tests for k==1
  > d1 <- kNN(setna(d,7:12,1)[,1:2],k=1)
  Error in `[<-.data.frame`(`*tmp*`, is.na(data.x[, i]), i, value = c(y = 2.2)) : 
    replacement has 1 row, data has 0
  Calls: kNN ... kNN_work -> dist_single -> gowerD -> [<- -> [<-.data.frame
  Execution halted