2019-03-04 Statistica exercise.r

x <- function() {
  values <- c(75, 79, 65, 80, 90, 15, 67, 18, 84, 84);
  avg <- mean(values); # media
  res <- fractions(avg); # frazione
  print(res);
  return(res);
}
x();

# Sent: 657/10