Skip to contents

TBD

Usage

indexSelfConstruction(
  x,
  self,
  ideal,
  others = c(-self, -ideal),
  method = "euclidean",
  p = 2,
  normalize = TRUE,
  round = FALSE
)

Arguments

x

A repgrid object.

self

Numeric. Index of self element.

ideal

Numeric. Index of ideal element.

others

Numeric. Index(es) of self related "other" elements (e.g. father, friend).

method

The distance or correlation measure:

  • Distances: euclidean, manhattan, maximum, canberra, binary, minkowski

  • Correlations: pearson, kendall, spearman

p

The power of the Minkowski distance, in case minkowski is used as argument for method, otherwise it is ignored.

normalize

Normalize values?

round

Round average rating scores for 'others' to closest integer?

Value

List object of class indexSelfConstruction, containing the results from the calculations:

  • grid: Reduced grid with self, ideal and others

  • method_type: method type (correlation or distance)

  • method: correlation or distance method used

  • self_element: name of the self element

  • ideal_element: name of the ideal element

  • other_elements: name(s) of other elements

  • self_ideal: measure between self and ideal

  • self_others: measure between self and others

  • ideal_others: measure betwen ideal and others

References

TBD

Examples

# using distance measures
indexSelfConstruction(boeker, 1, 2, c(3:11), method = "euclidean")
#> =================
#> SELF CONSTRUCTION
#> =================
#> 
#>   Mean ratings for 'others' rounded to closest integer:  FALSE
#> 
#> MEASURE
#> 
#>   normalized euclidean distance
#> 
#> COMPARISONS
#>  
#>   * Self - Ideal:  0.38 
#>   * Self - Others:  0.3 
#>   * Ideal - Others:  0.36
#> 
#> ELEMENTS
#> 
#>   * self: self
#>   * ideal: ideal self
#>   * others: mother, father, kurt, karl, george, martin, elizabeth, therapist, 
#>             irene
indexSelfConstruction(boeker, 1, 2, c(3:11), method = "manhattan")
#> =================
#> SELF CONSTRUCTION
#> =================
#> 
#>   Mean ratings for 'others' rounded to closest integer:  FALSE
#> 
#> MEASURE
#> 
#>   normalized manhattan distance
#> 
#> COMPARISONS
#>  
#>   * Self - Ideal:  0.29 
#>   * Self - Others:  0.26 
#>   * Ideal - Others:  0.33
#> 
#> ELEMENTS
#> 
#>   * self: self
#>   * ideal: ideal self
#>   * others: mother, father, kurt, karl, george, martin, elizabeth, therapist, 
#>             irene
indexSelfConstruction(boeker, 1, 2, c(3:11), method = "minkowski", p = 3)
#> =================
#> SELF CONSTRUCTION
#> =================
#> 
#>   Mean ratings for 'others' rounded to closest integer:  FALSE
#> 
#> MEASURE
#> 
#>   normalized minkowski distance
#> 
#> COMPARISONS
#>  
#>   * Self - Ideal:  0.44 
#>   * Self - Others:  0.34 
#>   * Ideal - Others:  0.39
#> 
#> ELEMENTS
#> 
#>   * self: self
#>   * ideal: ideal self
#>   * others: mother, father, kurt, karl, george, martin, elizabeth, therapist, 
#>             irene

# using correlation measures
indexSelfConstruction(boeker, 1, 2, c(3:11), method = "pearson")
#> =================
#> SELF CONSTRUCTION
#> =================
#> 
#>   Mean ratings for 'others' rounded to closest integer:  FALSE
#> 
#> MEASURE
#> 
#>   normalized pearson correlation
#>   Note: All correlations use Cohen's rc version which is invariant to 
#>         construct reflections
#> 
#> COMPARISONS
#>  
#>   * Self - Ideal:  0.48 
#>   * Self - Others:  0.12 
#>   * Ideal - Others:  0.6
#> 
#> ELEMENTS
#> 
#>   * self: self
#>   * ideal: ideal self
#>   * others: mother, father, kurt, karl, george, martin, elizabeth, therapist, 
#>             irene
indexSelfConstruction(boeker, 1, 2, c(3:11), method = "spearman")
#> =================
#> SELF CONSTRUCTION
#> =================
#> 
#>   Mean ratings for 'others' rounded to closest integer:  FALSE
#> 
#> MEASURE
#> 
#>   normalized spearman correlation
#>   Note: All correlations use Cohen's rc version which is invariant to 
#>         construct reflections
#> 
#> COMPARISONS
#>  
#>   * Self - Ideal:  0.48 
#>   * Self - Others:  0.12 
#>   * Ideal - Others:  0.6
#> 
#> ELEMENTS
#> 
#>   * self: self
#>   * ideal: ideal self
#>   * others: mother, father, kurt, karl, george, martin, elizabeth, therapist, 
#>             irene

# using not-normalized distances
indexSelfConstruction(boeker, 1, 2, c(3:11), method = "euclidean", normalize = FALSE)
#> =================
#> SELF CONSTRUCTION
#> =================
#> 
#>   Mean ratings for 'others' rounded to closest integer:  FALSE
#> 
#> MEASURE
#> 
#>    euclidean distance
#> 
#> COMPARISONS
#>  
#>   * Self - Ideal:  7.07 
#>   * Self - Others:  5.63 
#>   * Ideal - Others:  6.72
#> 
#> ELEMENTS
#> 
#>   * self: self
#>   * ideal: ideal self
#>   * others: mother, father, kurt, karl, george, martin, elizabeth, therapist, 
#>             irene

# printing the results (biplot only works with)
cp <- indexSelfConstruction(boeker, 1, 2, c(3:11))
cp$grid  # grid with self, ideal and others
#> 
#> META DATA:
#> Number of constructs:  14 
#> Number of elements:  3 
#> 
#> SCALE INFO:
#> The grid is rated on a scale from 1 (left pole) to 6 (right pole)
#> 
#> RATINGS:
#>                        2 - ideal self                        
#>               self - 1 | 3 - others                          
#>                      | | |                                   
#>       balanced (1)   1 4 3.44444444444444   (1) get along wit
#>       isolated (2)   3 6 4.33333333333333   (2) sociable     
#> ely integrated (3)   2 2 2.88888888888889   (3) excluded     
#>     discursive (4)   4 1 2.55555555555556   (4) passive      
#>    open minded (5)   2 1                3   (5) indifferent  
#>         dreamy (6)   4 5 4.44444444444444   (6) dispassionate
#> cally oriented (7)   2 1 2.55555555555556   (7) depressed    
#>        playful (8)   4 5 3.55555555555556   (8) serious      
#> ocially minded (9)   2 1 3.33333333333333   (9) selfish      
#>   quarrelsome (10)   5 5 3.66666666666667   (10) peaceful    
#>      artistic (11)   5 1 3.22222222222222   (11) technical   
#>    scientific (12)   2 1 3.88888888888889   (12) emotional   
#>     introvert (13)   4 5 4.22222222222222   (13) extrovert   
#>    wanderlust (14)   1 1                4   (14) home oriente
#> 
biplot2d(cp$grid, center = 4)  # midopoint centering