fun1 <- function(x){
selectDay <- subset(tips, day == x, select = tip)
print("Day Selected = ")
print(x)
meanOfDay <- mean(selectDay)
meanOfDay
}
fun1("Sun")
In the dataframe I'm working on has many values in day column ("Sun", "Thurs", etc). I'm selecting one (sunday, for instance) and calculating average tips received that day. however, I'm getting an error that says argument is not numeric or logical: returning NA.
How would I solve this? Thank you!