GACFF (version 1.0)

meanR.Results: Average of results for all active users.

Description

Average of MAE and elapsed time for all active users.

Usage

meanR.Results(obj_Results)

Arguments

obj_Results

An object of class "Results".

Value

An object of class "meanR.Results", a list with components:

call

The call used.

mean_MAE_Pearson

Average of MAE obtained from the "Pearson" method for all active users.

mean_MAE_NewKNN

Average of MAE obtained from the "NewKNN" method for all active users.

mean_MAE_Genetic

Average of MAE obtained from the "Genetic" method for all active users.

diff_MAE_GA_Pearson

The difference of MAE in the "Pearson" method and "Genetic" algorithm.

mean_Time_Pearson

Average of the elapsed time of the "Pearson" method for all active users.

mean_Time_NewKNN

Average of the elapsed time of the "NewKNN" method for all active users.

mean_Time_GA

Average of the elapsed time of the "Genetic" method for all active users.

Details

Due to the difference in the results of each active user, the average of all active users is calculated.

Examples

# NOT RUN {
ratings <- matrix(c(  2,    5,  NaN,  NaN,  NaN,    4,
                    NaN,  NaN,  NaN,    1,  NaN,    5,
                    NaN,    4,    5,  NaN,    4,  NaN,
                      4,  NaN,  NaN,    5,  NaN,  NaN,
                      5,  NaN,    2,  NaN,  NaN,  NaN,
                    NaN,    1,  NaN,    4,    2,  NaN),nrow=6,byrow=TRUE)

active_users <- c(1:dim(ratings)[2])

Results.out <- Results(ratings, active_users, Threshold_KNN=4, max_scour=5, 
                     min_scour=1, PopSize=100, MaxIteration=50, 
                     CrossPercent=70, MutatPercent=20)
                     
meanR.Results.out <- meanR.Results (obj_Results=Results.out)
# }