tests/testthat/test_sensitivity_plot.R

SAVF_matrix <- as.data.frame(matrix(ncol=7,nrow=8))
names(SAVF_matrix)<-c("Height","Weight","Forty","Shuttle","Vertical","Broad","Wonderlic")
SAVF_matrix[1,]<-rbind(0.414,0.45,0.473,0.366,0.553,0.395,0.839)
SAVF_matrix[2,]<-rbind(0.557,0.607,0.688,0.537,0.582,0.726,0.817)
SAVF_matrix[3,]<-rbind(0.414,0.552,0.669,0.7,0.611,0.621,0.664)
SAVF_matrix[4,]<-rbind(0.557,0.485,0.446,0.383,0.525,0.469,0.56)
SAVF_matrix[5,]<-rbind(0.414,0.391,0.482,0.528,0.367,0.37,0.539)
SAVF_matrix[6,]<-rbind(0.775,0.8,0.128,0,0.117,0,0.478)
SAVF_matrix[7,]<-rbind(0.629,0.751,0.737,0.613,0.67,0.888,0.38)
SAVF_matrix[8,]<-rbind(0.485,0.574,0.786,0.671,0.67,0.596,0.36)

weights2 <- as.data.frame(matrix(ncol=7,nrow=1))
weights2[1,]<-rbind(0.414,0.45,0.473,0.366,0.553,0.395,0.839)

weights = c(0.096, 0.224, 0.092, 0.138, 0.152, 0.228, 0.07)
names = c("Greg McElroy","Blaine Gabbert","Christian Ponder","Ricky Stanzi","Andy Dalton","Ryan Mallett","Cam Newton","Jack Locker")

test_that("sensitivity_plot provides proper messages and warnings",{
  expect_error(sensitivity_plot(SAVF_matrix, weights, names, 4))
  SAVF_matrix<-as.matrix(SAVF_matrix)
  expect_error(sensitivity_plot(SAVF_matrix,weights2,names, 4))
  expect_error(sensitivity_plot(SAVF_matrix,weights=SAVF_matrix,names, 4))
  expect_error(sensitivity_plot(SAVF_matrix[,1:6], weights, names, 4))
  expect_error(sensitivity_plot(SAVF_matrix, weights, c("Greg McElroy","Blaine Gabbert","Christian Ponder"),4))
  expect_warning(sensitivity_plot(SAVF_matrix, c(0.096, 0.224, 0.092, 0.138, 0.150, 0.220, 0.05), names, 4))
  expect_warning(sensitivity_plot(SAVF_matrix, c(0.096, 0.224, 0.092, 0.155, 0.175, 0.228, 0.15), names, 4))
  expect_error(sensitivity_plot(SAVF_matrix, weights, names, "4"))
  expect_error(sensitivity_plot(SAVF_matrix, weights, names, 9))
})
AFIT-R/MODA documentation built on May 28, 2019, 11:01 a.m.