Deutsches R-Forum

Code: Alles auswählen

data <- data.frame(x1=1:10, x2=11:20, x3=21:30)
result <- data.frame(sum=data$x1 + data$x2 + data$x3)

Code: Alles auswählen

# Zufällige Beispieldaten mit 241 Spalten zum ausprobieren
bsp <- as.data.frame(matrix(rnorm(2410), ncol = 241))
str(bsp)

# Wir extrahieren die Spalten Nr. 45 bis 51 (das sind 7 Spalten)
auszug <- bsp[,45:51]
print(auszug)

# ich ändere da mal was. Das hilft uns später bei der Plausibilitätskontrolle:
auszug[1,] <- c(1, 1, 1, 1, 1, 1, 1) # eine Reihe mit lauter Einsen
auszug[2,] <- c(1, 0, 0, 0, 0, 0, 0) # eine Reihe mit nur einer Eins
print(auszug)

# Und davon berechnen wir jetzt die Zeilensummen
rowSums(auszug) # die manipulierten Zeilen haben korrekte Zeilensummen 7 bzw 1.

Code: Alles auswählen

M <- matrix(100*(1:3)+rep(1:14, each=3), 3, 14)
M
A <- array(M, c(3, 7, 2))
A
apply(A, c(1,3), sum)

Code: Alles auswählen

bsp <- as.data.frame(matrix(rnorm(2410), ncol = 241))

ergebnis <- NULL # füllen wir später mit Daten

for(erste.spalte in 1:(241-6)) # spaltenweise abarbeiten
{
  letzte.spalte <- erste.spalte + 6
  r <- rowSums(bsp[,erste.spalte:letzte.spalte])
  ergebnis <- cbind(ergebnis, r)
}

ergebnis <- data.frame(ergebnis)
head(ergebnis)