hello R users,
I didn't find a solution for a special problem.
I have two dataframes.
dataframe1:
X value row col ID
1 8.973498062 5512625 3460000 1
2 11.656658570 5501625 3464000 2
3 11.121777570 5495625 3473000 3
4 9.310465964 5508625 3477000 4
5 8.883483845 5515625 3496000 5
dataframe2:
X value row col ID
n
1 11.105009400 5511625 3463000 1
-619.112472616732
2 10.324148150 5499625 3465000 0
1.000000000000
3 8.744590903 5503625 3475000 0
1.000000000000
4 9.523473123 5494625 3475000 3
-578.235381588725
5 8.856097133 5507625 3480000 4
-619.112472616732
6 8.636881453 5514625 3497000 5
-140.801233634174
Now I want if column "n" in dataframe2 is greater than 0 column "ID" which
is 0 is now maxium column "ID" in dataframe1 +1 and the for the second 0
maximum + 2
the finished dataframe2 should look like this:
X value row col ID
n
1 11.105009400 5511625 3463000 1
-619.112472616732
2 10.324148150 5499625 3465000 6 1.000000000000
3 8.744590903 5503625 3475000 7 1.000000000000
4 9.523473123 5494625 3475000 3
-578.235381588725
5 8.856097133 5507625 3480000 4
-619.112472616732
6 8.636881453 5514625 3497000 5
-140.801233634174
My idea was below:
lastrow1 <- length(dataframe2[,1])
lastrow2 <- length(dataframe1[,1])
anz <- sum(dataframe2[,6] > 0)
for (k in 1:anz){
for (i in 1:lastrow1){
for (j in 1:lastrow2){
if (dataframe2[i,6] > 0){
dataframe2[i,5] <- max(dataframe1[j,5])+(k-k+1)
}
}
}
}
but the result is:
X value row col ID
n
1 11.105009400 5511625 3463000 1
-619.112472616732
2 10.324148150 5499625 3465000 6
1.000000000000
3 8.744590903 5503625 3475000 6
1.000000000000
4 9.523473123 5494625 3475000 3
-578.235381588725
5 8.856097133 5507625 3480000 4
-619.112472616732
6 8.636881453 5514625 3497000 5
-140.801233634174
R gives me the right value in the second row of "ID" with "6" but the third
row of "ID" is also "6" but should be "7"
any ideas?
thanks!
--
View this message in context:
http://www.nabble.com/Substitute-problem-tp20110333p20110333.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
