## named vector
vec <- c(a=1, b=20, c=0.03)
new <- sEdit(vec)
## unnamed vector
sEdit(numeric(10))
## list of vectors
lst <- list(vec=vec, test=1:10)
sEdit(lst)
## list with numeric and character vectors mixed
lst <- list(vec=vec, test=c("a","b","c"))
sEdit(lst)
Run the code above in your browser using DataLab