Нам нужно извлечь столбец с $
или [[
. Здесь он ищет объект «Наркотик» в глобальной среде, который там не создается, а только в среде «data1». Так что, либо используйте $/[[
permtest(data1$pounds[data1$Drug=='A'],data1$pounds[data1$Drug=='B'])
, либо используйте with
with(data1, permtest(pounds[Drug == 'A'], pounds[Drug == 'B']))