Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Maike Kleemeyer
MPGQuestionnaire
Commits
5b6f260b
Commit
5b6f260b
authored
Feb 02, 2021
by
Maike Kleemeyer
Browse files
Add R-markdown file, Add reliability analyses
parent
736133b5
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
analyse_data.R
View file @
5b6f260b
...
...
@@ -69,11 +69,12 @@ scale_A <- responses_coded %>%
select
(
A03
:
A05
)
inter_item_A
<-
scale_A
%>%
correlate
()
%>%
select
(
-
term
)
%>%
colMeans
(
na.rm
=
TRUE
)
correlate
()
%>%
select
(
-
term
)
corr_table_A
<-
bind_rows
(
inter_item_A
,
colMeans
(
inter_item_A
,
na.rm
=
TRUE
))
rownames
(
corr_table_A
)
<-
c
(
items
,
"mean"
)
mean
(
inter_item_A
)
scale_A
<-
scale_A
%>%
mutate
(
mean_A
=
rowMeans
(
.
,
na.rm
=
TRUE
))
...
...
@@ -87,7 +88,12 @@ item_total_A
mean
(
item_total_A
$
mean_A
)
scale_A
$
mean_A
<-
NULL
# delete the score column we made earlier
rely_A
<-
psych
::
alpha
(
scale_A
,
check.keys
=
FALSE
)
rely_A
<-
psych
::
alpha
(
scale_A
,
use
=
"complete.obs"
,
check.keys
=
TRUE
)
output_A
<-
bind_cols
(
rely_A
$
item.stats
$
n
,
rely_A
$
item.stats
$
mean
,
rely_A
$
item.stats
$
sd
,
rely_A
$
item.stats
$
r.drop
,
rely_A
$
alpha.drop
$
raw_alpha
)
colnames
(
output_A
)
<-
c
(
"total"
,
"mean"
,
"SD"
,
"Corrected Item total r"
,
"Alpha if item deleted"
)
psych
::
alpha
(
scale_A
,
check.keys
=
TRUE
)
$
total
$
std.alpha
...
...
@@ -96,7 +102,7 @@ scale_B1 <- responses_coded %>%
select
(
B02
:
B07
)
scale_B2
<-
responses_coded
%>%
select
(
B09
:
B1
4
)
select
(
B09
:
B1
3
)
scale_C
<-
responses_coded
%>%
select
(
C02
:
C04
)
...
...
@@ -129,7 +135,7 @@ scale_H_parentalleave_no <- responses_coded %>%
## OLD R CODE
setwd
(
"~/Seafile/FragebogenMpg/Reanalysen_Feb2020"
)
file1
=
read.csv
(
"20200106_MPG Work Culture_Basic Data_likert.csv"
,
header
=
TRUE
,
sep
=
";"
)
file1
=
read.csv
(
"
~/Seafile/FragebogenMpg/Reanalysen_Feb2020/
20200106_MPG Work Culture_Basic Data_likert.csv"
,
header
=
TRUE
,
sep
=
";"
)
library
(
psych
)
library
(
umx
)
...
...
generate_report.Rmd
View file @
5b6f260b
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment