project-2.R

#Function 1

x = c(12, 20, 18, 32, 15, 20)

y = c("M", "M", "F", "F", "M", "M", "M", "F")


Vect <- function(n){
  if (mode(n) == "numeric"){
    f = function(x){
      Mean = mean(x)
      SD = sd(x)
      Min = min(x)
      Max = max(x)
      Median = median(x)
      summary = c(Mean=Mean, SD=SD, Min=Min, Max=Max, Median=Median)
      return(summary)
    }
    
    f(n)
  }
  else{
    table(n)
  }
}

Vect(x)

##      Mean        SD       Min       Max    Median 
## 19.500000  6.862944 12.000000 32.000000 19.000000

Vect(y)

## n
## F M 
## 3 5

#Function 2

Capital <- function(x) {
  c <- strsplit(x, " ")[[1]]
  paste(toupper(substr(c, 1,1)), substring(c, 2),
        sep="", collapse=" ")
}

name <- c(names(mtcars))
#names(a)=NULL

a = sapply(name, Capital)