显示 the names of the strata are wrong怎么改?

小白求教大神
我设置了一个400x501的矩阵,第一列是编码(有160个1,120个2,120个3)想要按照这个编码进行随机抽样,抽出16个1,12个2,12个3.
N<-500
M<-400
X<-matrix(NA,M,N)
c<-gl(3,120,400)
C<-as.matrix(c)
X1<-cbind(C,X)
install.packages("sampling")
st=strata(C,stratanames=c("V1"),size=c(sized),pik=c(.10,.10,.10),method="srswr")
请问哪里出错了?

第一列是编码(有160个1,120个2,120个3