# counts the number of odd integers in the vector x oddcount <- function(x) { x1 <- x[x %% 2 == 1] return(list(odds=x1, numodds=length(x1))) }