#  Copyright (C) 2011-2012 Sandra Ligges
#
#  This program is free software; you can redistribute it and/or modify it under the terms
#  of the GNU General Public License as published by the Free Software Foundation;
#  either version 2 of the License, or (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
#  without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#  See the GNU General Public License for more details.
#
#  A copy of the GNU General Public License is available in the same folder as this file.


#######################################################################################################################
### Die Funktionen 'Simstudie.glZens()' und 'Simstudie.unglZens()' aus den Dateien 'Simulationsstudie_gleicheZens' 
### bzw. 'Simulationsstudie_ungleicheZens' führen jeweils den Versuchsplan in einer anderen 
### als der in der Arbeit beschriebenen Reihenfolge durch.
### Daher erfolgt hier eine Umsortierung der 'R-Data'-Dateien in die in der Arbeit verwendeten Reihenfolge.
#######################################################################################################################
Altneu <- function(file.erg1, file.erg2) {

    alteNr <- c(3, 19, 35, 4, 20, 36, 1, 17, 33, 2, 18, 34, 
        7, 23, 39, 8, 24, 40, 5, 21, 37, 6, 22, 38,
        11, 27, 43, 12, 28, 44, 9, 25, 41, 10, 26, 42, 
        15, 31, 47, 16, 32, 48, 13, 29, 45, 14, 30, 46, 
        49, 50)

    neueNr <- 1:50

    for(i in neueNr) {
        load(paste(file.erg1, "/SimEstHR_Sz", alteNr[i], ".RData", sep = ""))
        save(sim.erg, file = paste(file.erg2, "/SimEstHR_Sz", i, ".RData", sep = "")) 
    }

    load(paste(file.erg1, "/SimEstHR_Info_Vplan.RData", sep = ""))
    Vplan <- Vplan[alteNr, ]
    save(Vplan, file = paste(file.erg2, "/SimEstHR_Info_Vplan.RData", sep = ""))
}