Running examples in ‘DecisionAnalysis-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: DecisionAnalysis-package
> ### Title: DecisionAnalysis: Multi-Objective Decision Analysis
> ### Aliases: DecisionAnalysis DecisionAnalysis-package
> 
> ### ** Examples
> 
> 
> #Create a value hierarchy tree
> branches<- as.data.frame(matrix(ncol=5,nrow=7))
> names(branches)<-c("Level1","Level2","Level3","leaves","weights")
> branches[1,]<-rbind("QB","Elusiveness","Speed","Forty","0.092")
> branches[2,]<-rbind("QB","Elusiveness","Agility","Shuttle","0.138")
> branches[3,]<-rbind("QB","Size","","Height","0.096")
> branches[4,]<-rbind("QB","Size","","Weight","0.224")
> branches[5,]<-rbind("QB","Intelligence","","Wonderlic","0.07")
> branches[6,]<-rbind("QB","Strength","Explosiveness","Vertical","0.152")
> branches[7,]<-rbind("QB","Strength","Power","Broad","0.228")
> value_hierarchy_tree(branches$Level1,branches$Level2,branches$Level3,
+ leaves=branches$leaves,weights=branches$weights)
> 
> 
> #subset NFLcombine data from DecisionAnalysis package
> qbdata <- NFLcombine[1:7,]
> 
> #Create SAVF_matrix
> Height <- SAVF_exp_score(qbdata$heightinchestotal, 68, 75.21, 82)
> Weight <- SAVF_exp_score(qbdata$weight, 185, 224.34, 275)
> Forty <- SAVF_exp_score(qbdata$fortyyd, 4.3, 4.81, 5.4, increasing=FALSE)
> Shuttle <- SAVF_exp_score(qbdata$twentyss, 3.8, 4.3, 4.9, increasing=FALSE)
> Vertical <- SAVF_exp_score(qbdata$vertical, 21, 32.04, 40)
> Broad <- SAVF_exp_score(qbdata$broad, 90, 111.24, 130)
> Wonderlic <- SAVF_exp_score(qbdata$wonderlic, 0, 27.08, 50)
> SAVF_matrix = cbind(Height, Weight, Forty, Shuttle, Vertical, Broad, Wonderlic)
> 
> #Create weights vector
> weights = c(0.096, 0.224, 0.092, 0.138, 0.152, 0.228, 0.07)
> 
> #Calculate MAVF Score
> MAVF_Scores(SAVF_matrix, weights, qbdata$name)
              Name     Score
5     Kevin Barnes 0.6386080
4   Blaine Gabbert 0.6379147
1 Ryan Fitzpatrick 0.5279865
7  Darrell Hackney 0.4935806
2     Greg McElroy 0.4673404
3       Jason Maas 0.4075583
6     Bruce Eugene 0.3778714
> 
> #Plot MAVF Breakout
> MAVF_breakout(SAVF_matrix, weights, qbdata$name)
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
Execution halted