Problem function

Good morning, I am new to R and I was trying to do a function that allows me to compare all the data of a row with a certain value that is at the end of the table and that varies for each row.
I have to check and count if each value of each row is greater than that number. The code I wrote is the following but I have no feedback on R
counter=0
for (i in 1:500){​​
for(j in 1:750){​​
if (db_class[j,i]>db_class[j,751]==TRUE) {​​
counter=counter+1}​​
i=i+1
}​​
j=j+1
}​​

Hi!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at this guide, to see how to create one:

In the spirit of the above guide, why not begin with imagining you have a simpler problem, like data that has smaller dimensions, something tangible like 3 cols by 3 rows. (as opposed to 500 x 751)

A B C D MEAN
4 3 6 7 5
2 4 5 8 4,75
4 6 7 9 6,5
5 7 6 1 4,75

If (A1 > Mean1) countrow1 = count1 +1...
if (B1>Mean1) countrow1= count1+1..

If (A2 > Mean1) countrow2= count2 +1...
if (B2>Mean1) countrow2= count2+1..
I need to create a new col that contain this count for every row

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.

``````library(tidyverse)

(example_data <- tribble(
~A, ~B, ~C, ~D,
4, 3, 6, 7,
2, 4, 5, 8,
4, 6, 7, 9,
5, 7, 6, 1
) %>% mutate(MEAN = rowMeans(.)))

(example_data2 <- example_data %>% mutate(
rcount = rowSums(. > .[["MEAN"]])
))
``````
``````# A tibble: 4 x 6
A     B     C     D  MEAN rcount
<dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>
1     4     3     6     7  5         2
2     2     4     5     8  4.75      2
3     4     6     7     9  6.5       2
4     5     7     6     1  4.75      3``````
1 Like