IIProductionUnknown (version 0.0.3)

SolutionSource: 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)

Value

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

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.

Author

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)