[R] Substitute problem

[jim holtman]

Had the test wrong in the last one'  try this:

> x
  X     value     row     col ID         n
1 1 11.105009 5511625 3463000  1 -619.1125
2 2 10.324148 5499625 3465000  0    1.0000
3 3  8.744591 5503625 3475000  0    1.0000
4 4  9.523473 5494625 3475000  3 -578.2354
5 5  8.856097 5507625 3480000  4 -619.1125
6 6  8.636881 5514625 3497000  5 -140.8012
> id_max <- 5
> id_change <- (x$ID == 0) & (x$n > 0)
> x$ID[id_change] <- cumsum(id_change)[id_change] + id_max
> x
  X     value     row     col ID         n
1 1 11.105009 5511625 3463000  1 -619.1125
2 2 10.324148 5499625 3465000  6    1.0000
3 3  8.744591 5503625 3475000  7    1.0000
4 4  9.523473 5494625 3475000  3 -578.2354
5 5  8.856097 5507625 3480000  4 -619.1125
6 6  8.636881 5514625 3497000  5 -140.8012
>


On Wed, Oct 22, 2008 at 9:06 AM, Chris82 <rubenbauar at gmx.de> wrote:
>
> 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 at 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.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?