# NOT RUN {
sites <- paste("Site Number", 1:50)
sites.str <- vecprint(sites)
cat(sites.str)
temp <- c(1, 5, 21:25, 33:37)
sites.str <- vecprint(sites[temp])
warning(paste("\nThe following site ID values were removed from the
analysis:\n", sites.str, sep=""))
# }
Run the code above in your browser using DataLab