То, что вы делаете, является попарным сложением.Вы получите 2
, только когда strike1
и boycott1
равны 1
.Если strike1[i] == 1
и boycott1[i] == 2
, то protest[i] == 3
.В зависимости от того, что именно вы пытаетесь сделать, это на самом деле может быть тем, что вы хотите (предположим, что ваши наблюдения сопряжены).
Чтобы получить ожидаемый ответ, вам нужно будет сделать:
protest <- table( 2 * strike1 ) + table( 2 * boycott1 )
но я бы предостерег от этого, поскольку не кажется (по крайней мере, мне), что это будет иметь смысл.С другой стороны, может быть, я чего-то упускаю из-за вашей цели.
Кроме того, вы получили предупреждение в своей строке, где вы добавили strike1 и boycott1 вместе?Что-то вроде:
In protest<-strike1+boycott1:
longer object length is not a multiple of shorter object length
, потому что я думаю, что это должно было сгенерировать это предупреждение.