def vector(x, varname='x'):
    """Return an one-line R script of a vector
    
    Parameters:
    1. x: a list or an array of numbers or string
    2. type: the type of elements of x
    3. varname: the name of the vector
    """
    
    return "%s <- c(%s)\n" %(varname, str(x)[1:-1])