######################################################################
#
# Auswertungsdatei für die Durchführung eines Auswertungsgangs
# mit der Datenbasis Gebäudebestand
#
######################################################################
###
### Auswertungsdatei für die Durchführung eines Auswertungsgangs
### mit der Datenbasis Gebäudebestand
###
#######################################################################
###
### 	Bitte folgende Angaben vervollständigen
###		***************************************
###
###		Dateiname des Programmcodes: Musterprogramm.txt 
### 	erstellt: <Datum> 
### 	von: <Name> 
### 	E-Mail: <E-Mail-Adresse> 
### 	Tel. <Telefonnummer> 
### 	
#######################################################################


#############################################
####Teil A: Kopfzeile
##Diese Kopfzeile darf nicht verändert werden
###############################################
source("Z:\\R\\headerFR.r")


############################################
###Teil B: Festlegung der Gebäudeart
##############################################

####Standardeinstellung: Wohngebäude
Gebaeude <- subset (daten, daten$Gebtyp == 2)
####Alternativen:
###Wohngebäude und Nichtwohngebäude mit Wohnungen
#Gebaeude <- subset (daten, daten$Gebtyp == 1 | daten$Gebtyp == 2)
##Nichtwohngebäude mit Wohnungen
#Gebaeude <- subset (daten, daten$Gebtyp == 1)


##################################################
###Teil C: Festlegung von Teilmengen des Gebäudebestandes
#####################################################

##Beispiel 1: 
Altbau83 <- subset(Gebaeude, BJ > 0 & BJ <= 6)
##Beispiel 2:
Antwort_Pläne <- subset(Altbau83, Pläne_Einspar > 0)


#########################################
####Teil D: Durchführung der Auswertungen
### bis zu 25 Auswertungen sind zulässig
##########################################

###Auswertung 1
#Beispiel:
MW(~P_Erzeug, Antwort_Pläne)
###Auswertung 2
#Beispiel:
MW_W(~P_Erzeug, Antwort_Pläne)
###Auswertung 3
#Beispiel
Anz(~P_Erzeug, Antwort_Pläne)
###Auswertung 4
#Beispiel
MW(~factor(Pläne_Einspar), Altbau83)
###Auswertung 5
#Beispiel
Anz(~Geb, Altbau83)
####Auswertung 6
#Beispiel
MW(~interaction(Denkmalschutz, Solaranlage), Altbau83)
##Auswertung 7
#Beispiel
MW(~factor(Pläne_Einspar == 0), Altbau83)
##Auswertung 8
#Beispiel
MW(~interaction(Denkmalschutz == 2, Solaranlage == 2), Altbau83)
##Auswertung 9

##Auswertung 10

##Auswertung 11

##Auswertung 12

##Auswertung 13

##Auswertung 14

##Auswertung 15

##Auswertung 16

##Auswertung 17

##Auswertung 18

##Auswertung 19

##Auswertung 20

##Auswertung 21

##Auswertung 22

##Auswertung 23

##Auswertung 24

##Auswertung 25