SolutionSource {IIProductionUnknown}

Obtaining indexes associated with the solution sources.

Description

Function to estimate the total n of the S.S. (n), E.S., ks, c, ds, n.I.I., Sum.n.I.I., and percentage of I.I. (P.I.I.) by each S.S..

Usage

SolutionSource(SolutionData,Production,EffectivenessOfSolution,Id,Verbose=TRUE)

Arguments

SolutionData

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.

Production

Matrix or data frame with a column containing the damage or defoliation data.

EffectivenessOfSolution

Output generated by the function 'EffectivenessOfSolution'

Id

Logical vector indicating the lines of the 'EffectivenessOfSolution' that are relevant. Output generated by the function SelectEffectivenessOfSolution

Verbose

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

Value

The function returns the Percentage of Importance Index-Production Unknown and estimates of variables used in its construction.

Author(s)

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

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)

EOS
#Put: y and y
# ID<-SelectEffectivenessOfSolution(EOS)
ID<-c(FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,
FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE)
ResultSolutionSource<-SolutionSource(SolutionData =DataSolutionSource,Production =DataResult,
                                    EffectivenessOfSolution =EOS ,Id = ID,Verbose = TRUE  )
ResultSolutionSource

# Put: y,n,y,n,y,n and y
# ReductionAbundance(ResultSolutionSource,ResultLossSource,
#                  EffectivenessOfSolution=EOS)

###################################################
EOSDamage<-EffectivenessOfSolution(DataLossSource =DataDamage,
                                  DataSolutionSource =DataSolutionSource,
                                  ResultLossSource = NULL)


EOSDamage

# Put: y, n and y
#ReductionDamage(ResultSolutionSource,LossSource=DataDamage,
#                EffectivenessOfSolution=EOSDamage)