R code for scoring psychological testing measures

For most scales the default is alpha=F to return item scores. Pass alpha=T if you only want alpha values.

The term df is used to denote the input dataframe eg. for the rse the input value df could be represented by: data.frame(matrix(sample.int(15,100, TRUE), ncol=10)) although this example is unlikely to produce valid values for scoring

The number of columns is assumed to be the number of questions in the dataset. For example: in the IPIP 50, which has 50 questions, it is expected that your dataframe will have 50 columns where each column is a response to a question. Eg. column 1 is the response to the first question etc.

Scales

• Rosenberg Self-Esteem Scale

  • rsescore<-function(df,alpha=F)

• IPIP 50

  • ipip50score<-function(df,alpha=F)

• Narcissistic Personality Inventory 40 (NPI 40)

  • npi40score<-function(df,alpha=F)

• Narcissistic Personality Inventory 16

  • npi16score<-function(npi,alpha=F)

• Big Five Inventory (BFI-44)

  • bfi44score<-function(df,alpha=F)

• Five Factor Model Rating form

  • ffmrfscore<-function(csv,alpha=F)

• Ten Item Personality Inventory (TIPI)

  • tipiscore<-function(x)

• Narcissistic Admiration and Rivalry Questionaire

  • narq<-function(x,alpha=F)

• Short Dark Triad 3

  • sd3_score<-function(x)

Functions to view data in APA format or calculate P and F from models

• Output correlation in APA style

  • apaCorr2<-function(df,round_digits=2)
    • example: apaCorr2(data.frame(sample.int(20,10,replace=T),sample.int(20,10,replace=T)))

• Shortcut function to calculate p-val from a linear model object

  • lmp <- function (modelobject)
    • example: lmp(lm(csv$bfat~csv$exer))

• takes in linear model outputs: F(dfb,dfw)=fobt,p-val

  • prettyF<-function(x)
    • example: prettyF(lm(csv$bfat~csv$exer))

• get semi-partial correlation

  • partial_df<-function(x,cont)
    • #example call: semi_partial_df(res,"gender") //where the dataframe has a column gender