Replace "as.vector" with "rownames" - as follows
Replace line 29 with
stat.ids<-rownames(t(fixed.ids))
And line 32 with
ship.ids<-rownames(t(ship.ids))
