有没有人知道怎么回事，我按照课本上一步步打的出现了这种错误

xy<-sapply(slot(chinaMap,"polygons"),FUN=function(x) slot(x,"labpt"))

xy<-t(xy)
MapFun<-function(Indices,provName,titleName){

• colT<-(max(Indices)-Indices[])/(max(Indices)-min(Indices)*100
• Name<-as.vector(chinaMap$NAME)
  错误: unexpected symbol 于
  "colT<-(max(Indices)-Indices[])/(max(Indices)-min(Indices)*100
  Name"

喵