Codigo R - analise feijoes