Deutsches R-Forum

Code: Alles auswählen

I <- 8; L <- list()
for (l in 1:I)  L[[l]] <- T %*% inv(T + diag(c(S[1, 1]/elements[l, 3], S[2,2]/elements[l, 6])) ) 

Code: Alles auswählen

I<-8
L <- list()
for (l in 1:I) { 
  L[[l]] <- T %*% inv(T + diag(c(S[1, 1]/elements[l, 3], S[2,2]/elements[l, 6])) )          
}
L

Code: Alles auswählen

x <-  c("Per Booking 5 EUR", "und noch was mit 17 USD")
y <- lapply(strsplit(x, " +"), rev)
sapply(y, '[', 1) ### Währung
sapply(y, '[', 2) ### Betrag