|
| 1 | +# CITATION: Faccio, E., Castiglioni, M., & Bell, R. C. (2012). Extracting information from |
| 2 | +# repertory grid data: New perspectives on clinical and assessment practice. |
| 3 | +# Journal of Constructivist Psychology, 25(1), 63-86. |
| 4 | +# DOI: 10.1080/10720537.2012.629508 |
| 5 | +# |
| 6 | +# CONTEXT: This grid was elicited from "Elisabetta," a 17-year-old with an eating disorder, |
| 7 | +# to illustrate methods for extracting clinical information from repertory grids; 13 elements |
| 8 | +# (self, family members, peers, and self-image figures) were rated on 18 bipolar constructs |
| 9 | +# using a -3 to +3 scale (positive = left/emergent pole, negative = right/contrast pole). |
| 10 | + |
| 11 | +args <- list( |
| 12 | + name = c("Elisabetta", |
| 13 | + "Brother", |
| 14 | + "Sister", |
| 15 | + "Parents", |
| 16 | + "Veronica (disliked)", |
| 17 | + "Carlotta (admired)", |
| 18 | + "Federica", |
| 19 | + "Simone", |
| 20 | + "Vanessa", |
| 21 | + "Francesca", |
| 22 | + "As I would like to be", |
| 23 | + "As others see me", |
| 24 | + "As others would like me to be"), |
| 25 | + l.name = c("spontaneous", |
| 26 | + "fragile", |
| 27 | + "happy", |
| 28 | + "reliable", |
| 29 | + "closed", |
| 30 | + "obstinate", |
| 31 | + "strong", |
| 32 | + "obstinate", |
| 33 | + "insensitive", |
| 34 | + "undecided", |
| 35 | + "altruist", |
| 36 | + "simple", |
| 37 | + "impulsive", |
| 38 | + "accommodating", |
| 39 | + "anxious", |
| 40 | + "proud", |
| 41 | + "perfectionist", |
| 42 | + "irritable"), |
| 43 | + r.name = c("false", |
| 44 | + "indifferent", |
| 45 | + "problematic", |
| 46 | + "thinks about own interests", |
| 47 | + "extroverted", |
| 48 | + "weak", |
| 49 | + "weak", |
| 50 | + "hidden", |
| 51 | + "kind-hearted", |
| 52 | + "decided", |
| 53 | + "selfish", |
| 54 | + "less hasty", |
| 55 | + "prudent", |
| 56 | + "ambitious", |
| 57 | + "controls situations", |
| 58 | + "passes over things", |
| 59 | + "hasty", |
| 60 | + "calm"), |
| 61 | + scores = c( 3, -3, -1, -2, -2, -2, -3, -3, -1, 0, -3, -3, -3, |
| 62 | + -2, 1, -1, -1, 0, 2, -2, -1, 1, 0, -1, 0, NA, |
| 63 | + -2, -3, -2, 0, 3, -2, -3, -3, -2, -2, -3, -2, -3, |
| 64 | + -3, -3, -3, 0, 2, -3, -3, -3, 1, -3, -3, -3, -3, |
| 65 | + 2, 3, 2, 2, 1, -2, 3, 1, 3, -1, 3, 3, 3, |
| 66 | + -3, -3, -3, 0, 3, 1, -2, -1, 3, -3, -3, 0, NA, |
| 67 | + -2, -2, -3, 1, -2, -2, -3, 0, -1, 1, -3, -1, -3, |
| 68 | + -2, -2, -3, 0, 1, -2, 3, 0, -1, 2, -2, 2, -1, |
| 69 | + 2, 3, 2, -1, 0, 3, 3, 3, 1, 1, 3, 2, 3, |
| 70 | + 2, 3, 3, -2, 1, -2, 0, 2, -2, 2, 3, 2, 3, |
| 71 | + -2, -2, -2, 0, 2, -3, -2, -3, 1, -1, -3, -2, -3, |
| 72 | + -1, -3, -3, 0, -3, 3, 3, 3, -1, -2, -2, -1, -2, |
| 73 | + -3, -3, -1, 1, -2, 2, 2, 2, -3, 2, -3, -3, -1, |
| 74 | + 3, 3, 3, -2, 1, -3, -3, -2, 2, 3, 2, 3, 3, |
| 75 | + -2, 2, 2, -3, -2, 0, 2, 2, -1, -1, 2, 1, 2, |
| 76 | + -2, -2, -2, 2, -2, 2, 2, 2, -2, -1, -2, 2, -2, |
| 77 | + -2, -2, -3, 1, -1, -1, -3, -1, 1, 1, -2, -2, -1, |
| 78 | + -3, 1, -3, -2, -1, 3, -1, 3, 0, 1, 0, -3, 1) |
| 79 | +) |
| 80 | +grid <- makeRepgrid(args) |
| 81 | +grid <- setScale(grid, -3, 3) |
0 commit comments