Hi I am trying to calculate average in my function but its giving error, please help how can calculate.
getting error "In mean.default(var) : argument is not numeric or logical: returning NA"
but its numeric value.
data <- data[!is.na(data[[var]]), ]
T1 <- as.data.frame(table(data[[var]]))
all <- sum(T1[, 2])
T1 <- T1 %>% mutate(
average_score <- mean(var),
!!Name_of_variable := as.character(Var1),
"Percent" = round(Freq * 100 / all,digits = 1),
"N" = as.numeric(Freq)
) %>%
select(!!Name_of_variable,"Percent","N")
T1 <- T1 %>% arrange(desc(Percent))
}