SHARE
TWEET

Untitled

a guest Jun 19th, 2017 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. require("scmamp")
  2. ARRAY <- c(0.96822293828,7.3656671584649995,7.361516536365,7.327102939780002,67.69809930275,71.29145356857498,0.996227590895,31.57779222915,10.418323016619999,31.59527049700001,7586.160788006289,7822.631184790114,0.9884599410499998,240.24845599228507,79.45489334763501,250.96448434269504,2.30391736174284E7,2.0515967577414975E7,0.99485012628,965.0137402108201,843.54757421827,1011.920493547065,9.28625478736397E9,8.51471206914487E9,0.9752168614750001,26161.208263704244,12241.134106767586,30915.522412777344,8.7933543442790128E16,7.130498921678308E16,0.916382856075,6.679109948300001,6.1978704880499995,6.821862909404999,53.46761221292498,43.919969479565,0.9570339649049998,29.61508229442,24.875580796395003,30.683118094475,4173.088959516035,4360.396538388555,0.625692177515,202.246197911945,0.0,220.121596743235,5653606.2217641985,6051340.721701853,0.6525272464549999,874.6180784820651,0.0,822.183595225735,2.101463816376178E9,2.7185633969556527E9,0.6147286317,23509.846699795387,0.0,26754.445516951273,1.9646309300222212E16,2.2748503747797612E16,0.9698523591450001,7.377914563029999,7.379854966809999,7.330548031344999,67.53516488259001,72.086719625905,0.9984191592849999,31.637340474105002,31.63668800669,31.62246883708,7805.933209767459,8598.94721894916,0.994545801605,240.505195639565,240.13414373912997,253.41423462215,2.2413632443489056E7,2.3219630887956616E7,0.9965120802749998,961.8008233801149,956.927077989355,1016.5659279271051,9.425574145350468E9,9.90963408461214E9,0.978085565975,25402.7340184719,25557.089893192177,31338.64124016776,9.5619971284107728E16,8.1125598831607008E16,0.9667657382449997,7.36832924695,7.353209753249999,7.357274379090001,67.093237277875,71.21906374474,0.9537612444699999,31.52657596947001,19.7448114543,31.511775115325,7179.194991817878,7658.442239490525,0.9952718349200002,237.039662792285,235.12578977686502,241.69762232962003,2.2138689234624714E7,2.113370115609618E7,0.9966517836549998,938.6664237110548,927.08484198658,949.3476733906149,8.779304787106897E9,8.791839512957628E9,0.9849753310500002,24730.65401403536,24185.796784730504,25662.578621780478,9.025464966900504E16,6.5229426869188736E16)
  3. categs<-as.factor(rep(c("NSGAIII+MOEADSTM","NSGAIII","COMOEA-MOEADSTM1,NSGAIII","MOEADSTM1"),each=30))
  4. probs<-as.factor(rep(c("0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29"),4))
  5. neg = ARRAY
  6. d <- split(neg, ceiling(seq_along(neg)/30))
  7. df <- data.frame(d)
  8. colnames(df) <- unique(categs)
  9.  
  10. setEPS()
  11. postscript("experiment/NSGAIIIMethodology/R/analysis/HV/criticaldifference.eps")
  12. output <- plotCD(df, alpha=0.05 )
  13. dev.off()
RAW Paste Data
Top