ich habe eine for-Schleife
Code: Alles auswählen
p <- c(44,46,47,48,49)
l <- c(15,14,16,16,12)
for (i in 1:5){
count_T <- dbGetQuery(conn,paste("SELECT
CASE WHEN T IS NULL THEN -9999
WHEN T < 0 THEN 0
WHEN (T >=0 AND T <5) THEN 1
WHEN (T >=5 AND T <10) THEN 2
ELSE 10
END AS bin,
COUNT(1) as count
FROM data
WHERE (phi =",p[i],")
AND (lam = ",l[i],")
GROUP BY bin;/n"))
print(count_T)}
Code: Alles auswählen
for (i in 1:5){
... Schleife ...
df <- data.frame(p,l.count_t)
write.table(df, file =...) }
Danke und liebe Grüße,
Jessi