# 12-3 Mutiple Parameters

### Function Definition ###

# Function raise(x,y)
# Raise x to the power y

raise <- function(x,y) x^y # No brackets needed if a single action

# Function echo_string(n,string)
# Generate a vector containing every element of string n times

echostring <- function(n, string)
{
  return_vector<-NA
  for (i in 1:length(string)) # For each word...
  {
    for (j in 1:n) return_vector<-c(return_vector, 
                                    string[i]) # ... add it n times
  }
  return(return_vector[-1]) # Drop the initial NA used to define the vector
}

### Main Script ###

# Testing raise(x,y)

raise(2,3) # Test with values

a<-c(2,3)
raise(a[1],a[2]) # Test with vector elements

b<-c(3,4)
raise(a,b) # Test with vectors


# Testing echostring(n,string)

outstring<-echostring(3,"Echo...") # Test with values
outstring

c<-c("A string","Another string")
outstring<-echostring(3,c)
outstring