This function takes a data.frame of features appends 6 factor scores along with a total score.
Arguments
- feature.matrix
A matrix containing responses to questions for organizations. Output from
get_features
function. Rows represent each organization, and must contain columns that represent responses to the following questions: "P12_LINE_1", "P4_LINE_12", "P4_LINE_28", "P4_LINE_29_30", "P6_LINE_1", "P6_LINE_11A", "P6_LINE_15A", "P6_LINE_18", "P6_LINE_2", "P6_LINE_3", "P6_LINE_8A", "P6_LINE_12_13_14". Seevignette("making-gov-scores", package = "governance")
for details on these features.- missing
From psych::factor.scores. If missing is TRUE, missing items are imputed using either the median or mean. If missing is FALSE, the default, scores are found based upon the mean of the available items for each subject. If missing is FALSE, input rows with NA values will not be included in the output.
- scores.by.hand
If FALSE, psych::factor.scores is used to calculate features scores. If TRUE, manual calculations are used to calculate the factors scores. This option should only be used if
features.matrix
has no missing values AND is not of full rank (i.e. at least one column is all 0's or 1's). See Appendix of Seevignette("making-gov-scores", package = "governance")
for details on this calculation.- imput
From psych::factor.scores. If missing == TRUE, then missing data can be imputed using "median" or "mean". The number of missing by subject is reported. If impute = "none", missing data are not scored. Median is the default for our usage because all of our feature values are binary.
Value
A data frame with the original features.matrix
input data and
appended 6 factor scores along with a total score.
Details
This function generates factor scores for observations in the input
feature.matrix
from pre-loaded factor model ( in data/factor-objects.Rdata
)
See also
get_features
for formatting feature.matrix
.
Examples
# get data
data("dat_example", package = "governance")
set.seed(57)
keep_rows <- sample(1:nrow(dat_example), 200)
dat_example <- dat_example[keep_rows, ]
# get features
features_example <- get_features(dat_example)
# get scores
scores_example <- get_scores(features_example)