# NOT RUN {
require("tcltk")
## 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