求问subset的问题

rm(list=ls())
s1<-c(1,2,5,7,9)
s2<-c(1,2,6,8,3)
s3<-c(1,2,5,3,3)
s<-data.frame(s1,s2,s3)
setcolNULL<-function(data,x){
return(subset(data,select=c(-x)))
}
setcolNULL(s,c(s1,s3))

#output:data frame with 0 columns and 5 rows

subset(s,select=c(-c(s1,s3)))
#output: s2
1 1
2 2
3 6
4 8
5 3