SolutionSource: Obtaining indexes associated with the solution sources.

In IIProductionUnknown: Analyzing Data Through of Percentage of Importance Indice (Production Unknown) and Its Derivations

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)

IIProductionUnknown documentation built on Feb. 16, 2023, 6:23 p.m.