x=sample(1:10,10)
sorted_vect=sort(x,decreasing=TRUE)
thresh=3
top_thresh(x,thresh)
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (vect, thresh)
{
sorted_vect <- sort(vect, decreasing = TRUE)
v = sorted_vect[thresh]
ifelse(vect >= v, vect, v)
}
Run the code above in your browser using DataLab