I want to write a function that creates a new column with rowmeans for Columns 1-3, **only if** **more than 2 questions for Columns 1-3 per row** were answered, otherwise print 'N'.

Here is my dataframe:

> 
> `test <- data.frame(Manager1 = c(1, 3, 3), Manager2 = c(3, 4, 1), Manager3 = c(NA , 4, 2), Team1 = c(3, 4, 1))`
> 
> 
> 

Desired output:

```
Manager1 Manager2 Manager3 Team1 mean_score
    1       3                3        N
    3       4        4       4     3.66667
    3       1        2       1        2

```

My code is as follows, but it's not working:

```
#create function
mean_score <- function(x) {
  for (i in 1:nrow(test)){
    if (sum(test[i, x] != "NA", na.rm = TRUE) >2){
      test$mean_score[i] <- rowMeans(test[i, x], na.rm = TRUE)
    } else 
      test$mean_score[i] <- print("N")
  }
}

#compute function
mean_score(1:3)

```

What am I missing? Suggestions on better code are welcome too.