trying different things it looks like it could be the names of arguments in wnominate(). try adding "rcObject" argument:
res <- wnominate( rcObject = rc_samp, dims = 1, polarity = 4, minvotes = 2 )