EffectivenessOfSolution {IIProductionUnknown}

Function to estimate the effectiveness of solution sources (S.S.) by loss source (Percentage_I.I. > 0.00) in the production system.

Description

This function allows to calculate E.S. of each S.S. by L.S. (significant in the reduction of defoliation or damage) in the system. Equation: E.S. = R2 x (1 - P) when it is of the first degree, or E.S. = ((R2 x (1 - P))x(B2/B1) when it is of the second degree. Where, R2 = determination coefficient and P = significance of ANOVA, B1 = regression coefficient, and B2 = regression coefficient (variable2), of the simple regression equation of the S.S..

Usage

EffectivenessOfSolution (DataLossSource,DataSolutionSource,ResultLossSource, verbose=TRUE)

Arguments

DataLossSource

It is a data frame or matrix object containing data from loss sources. Sources of loss refers to the number of individuals per observation that cause damage to the system.

DataSolutionSource

It is a data frame or matrix object containing data from solution sources. Solution sources refers to the number of individuals per observation that cause a reduction in the sources of loss in the system.

ResultLossSource

Output of LossSource function.

verbose

Logical value (TRUE/FALSE). TRUE displays the results of the effectiveness of solution

Value

The function returns the indices associated with the effectiveness of solution source in relation to the loss source, considering the coefficients obtained in the regression analyses.

Author(s)

Germano Leao Demolin-Leite (Instituto de Ciencias Agrarias da UFMG)
Alcinei Mistico Azevedo (Instituto de Ciencias Agrarias da UFMG)

See Also

ReductionDamage , SolutionSource

Examples

data("DataLossSource")
ChisqTest_Distribution(DataLossSource)

data("DataSolutionSource")
ChisqTest_Distribution(DataSolutionSource)

data("DataDefoliation")
data("DataDamage")

DataResult=cbind(DataDefoliation,DataDamage$D.L.S.2,DataDefoliation,
DataDamage$D.L.S.4,DataDefoliation)
ResultLossSource=LossSource(DataLoss = DataLossSource,DataResult =DataResult,
Cols<-c(1,3,5),verbose=TRUE)

EOS<-EffectivenessOfSolution(DataLossSource =DataLossSource,
                            DataSolutionSource =DataSolutionSource,
                            ResultLossSource = ResultLossSource)