library(tidyverse)
library(psyntur)
library(janitor)
library(lavaan)
library(lavaanPlot)
#cleaning it
wellbeing0 <- waltorbrian_ %>% clean_names
#glimpse
glimpse(wellbeing0)
glimpse(wellbeing0)
Rows: 56
Columns: 10
participant_private_id <dbl> N… multiple_choice_grid_object_2_i_feel_happy_here_quantised "…
multiple_choice_grid_object_2_i_feel_calm_here_quantised <chr> "… multiple_choice_grid_object_2_i_feel_frustrated_here_quantised "…
multiple_choice_grid_object_2_i_feel_anxious_here_quantised <chr> "… multiple_choice_grid_object_2_i_feel_uneasy_here_quantised "…
multiple_choice_grid_object_2_i_feel_i_belong_here_quantised <chr> "… multiple_choice_grid_object_2_i_feel_safe_here_quantised "…
multiple_choice_grid_object_2_i_feel_lonely_here_quantised <chr> "… multiple_choice_grid_object_2_i_feel_like_being_active_or_exercising_here_quantised "…
renaming
wellbeing00 <- wellbeing0 %>%
rename(id = participant_private_id,
WB1 = multiple_choice_grid_object_2_i_feel_happy_here_quantised,
WB2 = multiple_choice_grid_object_2_i_feel_calm_here_quantised,
WB3 = multiple_choice_grid_object_2_i_feel_frustrated_here_quantised,
WB4 = multiple_choice_grid_object_2_i_feel_anxious_here_quantised,
WB5 = multiple_choice_grid_object_2_i_feel_uneasy_here_quantised,
WB6 = multiple_choice_grid_object_2_i_feel_i_belong_here_quantised,
WB7 = multiple_choice_grid_object_2_i_feel_safe_here_quantised,
WB8 = multiple_choice_grid_object_2_i_feel_lonely_here_quantised,
WB9 = multiple_choice_grid_object_2_i_feel_like_being_active_or_exercising_here_quantised)