# 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. ### Pfad für die Simulationsstudie setwd(".") ### Einlesen der Pakete, die für die Simulationsstudie benötigt werden library("survival") library("reliaR") ### Einlesen der Funktionen, die für die Simulationsstudie benötigt werden ## Elementare Funktionen für die Durchführung der Simulationsstudie source("Simulationsfunktion.R") source("Simulationsstudie_gleicheZens.R") source("Simulationsstudie_ungleicheZens.R") ## Hilfsfunkionen source("Simulationsdateien_Reihenfolge.R") source("Sim_LRStatistiken.R") source("Sim_OptZens.R") ## Funktionen zur Darstellung der Ergebnisse source("Simulationsdarstellung_Boxplots.R") source("Simulationsdarstellung_Balkendiagramme.R") source("Simulationsdarstellung_KIs.R") ### Starten der Simulationsstudie ## gleiche Zensierungsverteilungen Simstudie.glZens("Ergebnisse_gleicheZens_alteNr") ## ungleiche Zensierungsverteilungen Simstudie.unglZens("Ergebnisse_ungleicheZens_alteNr") ### Abspeicherung der Ergebnisse in der Reihenfolge, wie sie in der Arbeit vorzufinden ist ### (vgl. die Datei 'Simulationsdateien_Reihenfolge') ## gleiche Zensierungsverteilungen Altneu("Ergebnisse_gleicheZens_alteNr", "Ergebnisse_gleicheZens_neueNr") ## ungleiche Zensierungsverteilungen Altneu("Ergebnisse_ungleicheZens_alteNr", "Ergebnisse_ungleicheZens_neueNr") ### Erstellung der Grafiken ## Boxplots SimEstHR.Boxplots("Ergebnisse_gleicheZens_neueNr") SimEstHR.Boxplots("Ergebnisse_ungleicheZens_neueNr") ## Balkendiagramme SimEstHR.Balkendiagramme("Ergebnisse_gleicheZens_alteNr", "Ergebnisse_gleicheZens_neueNr") SimEstHR.Balkendiagramme("Ergebnisse_ungleicheZens_alteNr", "Ergebnisse_ungleicheZens_neueNr") ## Konfidenzintervalle SimEstHR.KIs("Ergebnisse_gleicheZens_alteNr", "Ergebnisse_gleicheZens_neueNr") SimEstHR.KIs("Ergebnisse_ungleicheZens_alteNr", "Ergebnisse_ungleicheZens_neueNr")