attachment:survey_54273_R_syntax_file.R of LocalGroups/Muenchen/Gruendung

   1 #$Rev: 12179 $ filter.
   2 data <- read.table("survey_54273_R_data_file.csv", sep=",", quote = "'", na.strings=c("","\"\""), stringsAsFactors=FALSE)
   3 
   4 data[, 1] <- as.numeric(data[, 1])
   5 attributes(data)$variable.labels[1] <- "id"
   6 names(data)[1] <- "id"
   7 
   8 data[, 2] <- as.character(data[, 2])
   9 attributes(data)$variable.labels[2] <- "submitdate"
  10 names(data)[2] <- "submitdate"
  11 
  12 #Field hidden
  13 
  14 data[, 3] <- as.character(data[, 3])
  15 attributes(data)$variable.labels[3] <- "startlanguage"
  16 names(data)[3] <- "startlanguage"
  17 
  18 data[, 4] <- as.character(data[, 4])
  19 attributes(data)$variable.labels[4] <- "token"
  20 names(data)[4] <- "token"
  21 
  22 data[, 5] <- as.numeric(data[, 5])
  23 attributes(data)$variable.labels[5] <- "Hast du Interesse daran, dich an einer Fellowship-Gruppe in München zu beteiligen?"
  24 data[, 5] <- factor(data[, 5], levels=c(1,2),labels=c("Ja","Nein"))
  25 names(data)[5] <- "GROUP_INTERESSE"
  26 
  27 data[, 6] <- as.numeric(data[, 6])
  28 attributes(data)$variable.labels[6] <- "Wie viel Zeit im Monat möchtest (und kannst) du für das Fellowship aufbringen?"
  29 data[, 6] <- factor(data[, 6], levels=c(1,2,3,4,5,6),labels=c("Keine Zeit","1-2 Stunden","3-6 Stunden","8-12 Stunden","Mehr als 12 Stunden","Kann ich pauschal nicht sagen"))
  30 names(data)[6] <- "GROUP_ZEIT"
  31 
  32 data[, 7] <- as.character(data[, 7])
  33 attributes(data)$variable.labels[7] <- "[Ich lese und schreibe auf Mailinglisten, Usernet oder in Webforen] 
  34 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  35 
  36 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  37 data[, 7] <- factor(data[, 7], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  38 names(data)[7] <- "GROUP_MITARBEIT_SQ001"
  39 
  40 data[, 8] <- as.character(data[, 8])
  41 attributes(data)$variable.labels[8] <- "[Ich komme zu Fellowship-Treffen] 
  42 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  43 
  44 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  45 data[, 8] <- factor(data[, 8], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  46 names(data)[8] <- "GROUP_MITARBEIT_SQ002"
  47 
  48 data[, 9] <- as.character(data[, 9])
  49 attributes(data)$variable.labels[9] <- "[Ich besuche FLOSS-Events in München und Umland] 
  50 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  51 
  52 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  53 data[, 9] <- factor(data[, 9], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  54 names(data)[9] <- "GROUP_MITARBEIT_SQ004"
  55 
  56 data[, 10] <- as.character(data[, 10])
  57 attributes(data)$variable.labels[10] <- "[Ich (micro)blogge über FLOSS-(Events)] 
  58 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  59 
  60 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  61 data[, 10] <- factor(data[, 10], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  62 names(data)[10] <- "GROUP_MITARBEIT_SQ006"
  63 
  64 data[, 11] <- as.character(data[, 11])
  65 attributes(data)$variable.labels[11] <- "[Ich bringe die Themen der FSFE mit verschiedenen Aktionsformen auf die Straße] 
  66 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  67 
  68 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  69 data[, 11] <- factor(data[, 11], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  70 names(data)[11] <- "GROUP_MITARBEIT_SQ003"
  71 
  72 data[, 12] <- as.character(data[, 12])
  73 attributes(data)$variable.labels[12] <- "[Ich stelle mich an Infostände und rede mit Interessierten Menschen über Freie Software] 
  74 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  75 
  76 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  77 data[, 12] <- factor(data[, 12], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  78 names(data)[12] <- "GROUP_MITARBEIT_SQ005"
  79 
  80 data[, 13] <- as.character(data[, 13])
  81 attributes(data)$variable.labels[13] <- "[Ich vertrete bei (Podiums)diskussionen die Positionen der FSFE] 
  82 	Fellowship-Gruppen präsentieren die Freie Software und die FSFE vor Ort. Mit allen möglichen Aktionsformen soll Freie Software ins Bewusstsein der Bürgerinnen und Bürger getragen werden.
  83 
  84 	Im Folgenden sind einige Möglichkeiten aufgeführt, unsere Themen zu präsentieren. Wo siehst du dich dabei?"
  85 data[, 13] <- factor(data[, 13], levels=c("A1","A2","A3","A4"),labels=c("Definitiv","Schon, aber nicht alleine","Nur wenn es sein muss","Auf gar keinen Fall"))
  86 names(data)[13] <- "GROUP_MITARBEIT_SQ008"
  87 
  88 data[, 14] <- as.numeric(data[, 14])
  89 attributes(data)$variable.labels[14] <- "[FSFE-Neuigkeiten] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
  90 data[, 14] <- factor(data[, 14], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
  91 names(data)[14] <- "TREFFEN_THEMEN_1"
  92 
  93 data[, 15] <- as.numeric(data[, 15])
  94 attributes(data)$variable.labels[15] <- "[Planung, Organisation und Nachbereitung von FSFE-Aktionen vor Ort] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
  95 data[, 15] <- factor(data[, 15], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
  96 names(data)[15] <- "TREFFEN_THEMEN_2"
  97 
  98 data[, 16] <- as.numeric(data[, 16])
  99 attributes(data)$variable.labels[16] <- "[Diskussion von FLOSS-Neuigkeiten] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
 100 data[, 16] <- factor(data[, 16], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 101 names(data)[16] <- "TREFFEN_THEMEN_3"
 102 
 103 data[, 17] <- as.numeric(data[, 17])
 104 attributes(data)$variable.labels[17] <- "[Diskussion von Technik-Neuigkeiten] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
 105 data[, 17] <- factor(data[, 17], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 106 names(data)[17] <- "TREFFEN_THEMEN_4"
 107 
 108 data[, 18] <- as.numeric(data[, 18])
 109 attributes(data)$variable.labels[18] <- "[Gesellschaftliche Themen mit FLOSS-Bezug] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
 110 data[, 18] <- factor(data[, 18], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 111 names(data)[18] <- "TREFFEN_THEMEN_5"
 112 
 113 data[, 19] <- as.numeric(data[, 19])
 114 attributes(data)$variable.labels[19] <- "[Gesellschaftliche Themen ohne FLOSS-Bezug] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
 115 data[, 19] <- factor(data[, 19], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 116 names(data)[19] <- "TREFFEN_THEMEN_6"
 117 
 118 data[, 20] <- as.numeric(data[, 20])
 119 attributes(data)$variable.labels[20] <- "[Vorträge] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
 120 data[, 20] <- factor(data[, 20], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 121 names(data)[20] <- "TREFFEN_THEMEN_7"
 122 
 123 data[, 21] <- as.numeric(data[, 21])
 124 attributes(data)$variable.labels[21] <- "[Hacking] Inwieweit möchtest du beim Fellow-Treffen die folgenden Themen behandeln?"
 125 data[, 21] <- factor(data[, 21], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 126 names(data)[21] <- "TREFFEN_THEMEN_8"
 127 
 128 data[, 22] <- as.character(data[, 22])
 129 attributes(data)$variable.labels[22] <- "Weitere Themenvorschläge für Fellow-Treffen"
 130 names(data)[22] <- "TREFFEN_THEMEN_SONST"
 131 
 132 data[, 23] <- as.numeric(data[, 23])
 133 attributes(data)$variable.labels[23] <- "Wie oft soll ein Treffen stattfinden?"
 134 data[, 23] <- factor(data[, 23], levels=c(1,2,3,4,5),labels=c("Weniger als einmal im Monat","Einmal im Monat","Zweimal im Monat","Dreimal im Monat","Viermal im Monat"))
 135 names(data)[23] <- "TREFFEN_OFT"
 136 
 137 data[, 24] <- as.numeric(data[, 24])
 138 attributes(data)$variable.labels[24] <- "[Sonstiges] Wie oft soll ein Treffen stattfinden?"
 139 names(data)[24] <- "TREFFEN_OFT_other"
 140 
 141 data[, 25] <- as.character(data[, 25])
 142 attributes(data)$variable.labels[25] <- "[Montag ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 143 data[, 25] <- factor(data[, 25], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 144 names(data)[25] <- "TREFFEN_WOCHENTAG_1"
 145 
 146 data[, 26] <- as.character(data[, 26])
 147 attributes(data)$variable.labels[26] <- "[Dienstag ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 148 data[, 26] <- factor(data[, 26], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 149 names(data)[26] <- "TREFFEN_WOCHENTAG_2"
 150 
 151 data[, 27] <- as.character(data[, 27])
 152 attributes(data)$variable.labels[27] <- "[Mittwoch ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 153 data[, 27] <- factor(data[, 27], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 154 names(data)[27] <- "TREFFEN_WOCHENTAG_3"
 155 
 156 data[, 28] <- as.character(data[, 28])
 157 attributes(data)$variable.labels[28] <- "[Donnerstag ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 158 data[, 28] <- factor(data[, 28], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 159 names(data)[28] <- "TREFFEN_WOCHENTAG_4"
 160 
 161 data[, 29] <- as.character(data[, 29])
 162 attributes(data)$variable.labels[29] <- "[Freitag ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 163 data[, 29] <- factor(data[, 29], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 164 names(data)[29] <- "TREFFEN_WOCHENTAG_5"
 165 
 166 data[, 30] <- as.character(data[, 30])
 167 attributes(data)$variable.labels[30] <- "[Samstag ab 13h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 168 data[, 30] <- factor(data[, 30], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 169 names(data)[30] <- "TREFFEN_WOCHENTAG_6"
 170 
 171 data[, 31] <- as.character(data[, 31])
 172 attributes(data)$variable.labels[31] <- "[Samstag ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 173 data[, 31] <- factor(data[, 31], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 174 names(data)[31] <- "TREFFEN_WOCHENTAG_7"
 175 
 176 data[, 32] <- as.character(data[, 32])
 177 attributes(data)$variable.labels[32] <- "[Sonntag ab 13h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 178 data[, 32] <- factor(data[, 32], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 179 names(data)[32] <- "TREFFEN_WOCHENTAG_8"
 180 
 181 data[, 33] <- as.character(data[, 33])
 182 attributes(data)$variable.labels[33] <- "[Sonntag ab 18h] Wie sieht es an den folgenden Wochentagen bei dir zeitlich aus?"
 183 data[, 33] <- factor(data[, 33], levels=c("A1","A2","A3","A4","A5"),labels=c("Ich habe regelmäßig Zeit","Ich habe manchmal Zeit","Ich habe selten Zeit","Ich habe nie Zeit","Kann ich nicht pauschal sagen"))
 184 names(data)[33] <- "TREFFEN_WOCHENTAG_9"
 185 
 186 data[, 34] <- as.character(data[, 34])
 187 attributes(data)$variable.labels[34] <- "Hast du sonstige Anmerkungen zu den Wochentagen?"
 188 names(data)[34] <- "TREFFEN_WOCHENTAG_SO"
 189 
 190 data[, 35] <- as.numeric(data[, 35])
 191 attributes(data)$variable.labels[35] <- "[Das Treffen muss in der Nähe des Hauptbahnhofs sein] 
 192 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 193 data[, 35] <- factor(data[, 35], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 194 names(data)[35] <- "TREFFEN_ORT_1"
 195 
 196 data[, 36] <- as.numeric(data[, 36])
 197 attributes(data)$variable.labels[36] <- "[Das Treffen muss in der Nähe der S-Bahn-Stammstrecke sein] 
 198 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 199 data[, 36] <- factor(data[, 36], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 200 names(data)[36] <- "TREFFEN_ORT_2"
 201 
 202 data[, 37] <- as.numeric(data[, 37])
 203 attributes(data)$variable.labels[37] <- "[Es muss Parkmöglichkeiten geben] 
 204 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 205 data[, 37] <- factor(data[, 37], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 206 names(data)[37] <- "TREFFEN_ORT_3"
 207 
 208 data[, 38] <- as.numeric(data[, 38])
 209 attributes(data)$variable.labels[38] <- "[Der Treffpunkt muss barrierefrei sein] 
 210 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 211 data[, 38] <- factor(data[, 38], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 212 names(data)[38] <- "TREFFEN_ORT_4"
 213 
 214 data[, 39] <- as.numeric(data[, 39])
 215 attributes(data)$variable.labels[39] <- "[Es muss ein WLAN geben] 
 216 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 217 data[, 39] <- factor(data[, 39], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 218 names(data)[39] <- "TREFFEN_ORT_5"
 219 
 220 data[, 40] <- as.numeric(data[, 40])
 221 attributes(data)$variable.labels[40] <- "[Das WLAN muss kostenlos nutzbar sein] 
 222 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 223 data[, 40] <- factor(data[, 40], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 224 names(data)[40] <- "TREFFEN_ORT_6"
 225 
 226 data[, 41] <- as.numeric(data[, 41])
 227 attributes(data)$variable.labels[41] <- "[Es muss vegetarisches Essen geben] 
 228 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 229 data[, 41] <- factor(data[, 41], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 230 names(data)[41] <- "TREFFEN_ORT_7"
 231 
 232 data[, 42] <- as.numeric(data[, 42])
 233 attributes(data)$variable.labels[42] <- "[Es muss immer am selben Ort stattfinden] 
 234 	Inwieweit treffen die folgenden Aussagen zum Treffpunkt auf dich zu?"
 235 data[, 42] <- factor(data[, 42], levels=c(1,2,3,4),labels=c("Stimme zu","Stimme eher zu","Stimme eher nicht zu","Stimme nicht zu"))
 236 names(data)[42] <- "TREFFEN_ORT_8"
 237 
 238 data[, 43] <- as.character(data[, 43])
 239 attributes(data)$variable.labels[43] <- "Hast du eine Idee, wo Fellow-Gruppen-Treffen stattfinden können?"
 240 names(data)[43] <- "TREFFEN_ORT_IDEE"
 241 
 242 data[, 44] <- as.numeric(data[, 44])
 243 attributes(data)$variable.labels[44] <- "Wirst du beim Treffen Speisen und Getränke konsumieren?"
 244 data[, 44] <- factor(data[, 44], levels=c(1,2),labels=c("Ja","Nein"))
 245 names(data)[44] <- "TREFFEN_KONSUM"
 246 
 247 data[, 45] <- as.numeric(data[, 45])
 248 attributes(data)$variable.labels[45] <- "Sollen auch Nicht-Fellows am Treffen teilnehmen dürfen?"
 249 data[, 45] <- factor(data[, 45], levels=c(1,2),labels=c("Ja","Nein"))
 250 names(data)[45] <- "TREFFEN_NONFELLOW"
 251 
 252 data[, 46] <- as.numeric(data[, 46])
 253 attributes(data)$variable.labels[46] <- "Soll das Fellow-Treffen offen für die Presse sein?"
 254 data[, 46] <- factor(data[, 46], levels=c(1,2),labels=c("Ja","Nein"))
 255 names(data)[46] <- "TREFFEN_PRESSE"