sample

my_sample <- function(data, n, replace = F)
{
    if (!replace && length(data) < n) 
    {
        stop("invalid")
    } 
    else
    {
        if (replace == F) 
        {
             return(data[order(runif(length(data)))][1:n])
        } 
        else 
        {
            temp <- NULL
            for (i in 1:n) 
            {
                temp <- append(temp, data[order(runif(length(data)))][1])
            }
            return(temp)
        }
    } 
}