poliniza                package:desconhecido               R Documentation

Valoração do Serviço de Polinização em Produção Agrícola

Description:

     Estima o ganho bruto adquirido por um produtor no comércio de um determinado produto oriundo de culturas de frutíferas dependentes de polinização.

Usage:

     poliniza(x, y, TC, PUV, VU)

Arguments:

     x	data-frame contendo uma amostragem de quatro variáveis na cultura em questão:
	[,1] - número de flores por inflorescência.
	[,2] - número de inflorescências por indivíduo.
	[,3] - peso médio de frutos.
	[,4] - taxa média (0 a 1) do produto de interesse proveniente dos frutos (Exemplo: polpa).
  	
     y	data-frame contendo o número de flores utilizado em dois tratamentos de polinização (manual e controle) e as respectivas quantidades de frutos maduros produzidos:
	[,1] - tratamentos de polinização: [1,1] = manual; e [2,1] = controle.
	[,2] - número de flores utilizadas em cada tratamento.
	[,3] - número de frutos maduros produzidos em cada tratamento.

    TC	tamanho da cultura (quantidade de plantas).

   PUV	Peso da unidade de venda do produto (em gramas).

    VU	Valor (R$) da unidade de venda.


Details:

     O tratamento manual se refere ou a polinização cruzada ou autopolinização, dependendo de se o sistema reprodutivo da espécie cultivada é autocompatível ou não. 
     É necessário se certificar quanto a esse aspecto.

Value:

     Uma lista contendo os seguintes componentes:

  Ganho.em.Reais : valor da produção considerando a taxa de frutificação do tratamento controle.

  ValorPerdido.em.Reais : diferença entre os valores provenientes da taxa de frutificação do tratamento manual e controle, apenas se houver déficit de polinização na cultura.

  Producao.em.kg : quantidade do produto de interesse adquirido a partir da taxa de frutificação do controle.

  ProducaoPerdida.em.kg : diferença entre a quantidade da produção provenientes da taxa de frutificação do tratamento manual e controle, apenas se houver déficit de polinização na cultura.

  p.Chisq : retorna o p-value do chisq.test, usado caso os valores da tabela de contingência sejam iguais ou maiores que 10.

  p.Fisher : retorna o p-value do fisher.test, usado caso haja um valor na tabela de contingência menor que 10.

     A função retorna uma de três mensagens possíveis dependendo do p-value do teste utilizado:
	
	"Não há déficit de polinizadores na cultura" - indica que o serviço de polinização na cultura está sendo prestado de forma máxima.

	"Há déficit de polinizadores na cultura" - indica déficit no serviço de polinização

	"A polinização manual não foi eficiente" - indica que o máximo de frutificação da cultura não foi alcançado devido a problemas no método ou que apenas polinizadores são capazes de acionar o mecanismo.

Author(s):

     Liedson Tavares Carneiro (liedson.carneiro@ib.usp.br)

References:

     Vaissière, B.E., Freitas, B.M., Gemmil-Herren, B. (2011) Protocol to detect and asses pollination deficits in crops: a handbook for its use. Rome: FAO. Page 5 (Fig.1.3).

See Also:

     chisq.test
     fisher.test

Examples:

	fl <- c(120, 105, 98, 108, 125, 95)
	inf <- c(22, 31, 18, 27, 41, 25)
	pes <- c(107,155,148,125,146,110)
	tx <- c(0.55, 0.70, 0.66, 0.72,0.59,0.6)
	x <- data.frame(fl,inf,pes,tx)
	tra <- c("manual","controle")
	fltr1 <- c(78, 89)
	frut1 <- c(25,34)
	y1 <- data.frame(tra,fltr,frut)
	poliniza(x,y1,450,100,1.79) #usa o teste do Qui-quadrado
	fltr2 <- c(12,11)
	frut2 <- c(3,3)
	y2<- data.frame(tra,fltr2,frut2)
	poliniza(x,y2,450,100,1.79) #usa o teste exato de Fisher