Creating spiral graphs for the work motivation recurrence networks

2021-11-23 13:02:29 +01:00
parent 1c32f3f7fd
commit 30a29b150f
16 changed files with 296 additions and 233 deletions
@@ -174,7 +174,7 @@ user_row_lengths_df$X1 <- as.numeric(user_row_lengths_df$X1)
 # User_list <- c('Moti148', 'Moti143', 'Moti140', 'Moti156', 'Moti151')
 User_list <- c(
  # 'Moti114',
- 'Moti147',
+ # 'Moti147',
 'Moti149',
 'Moti164',
 'Moti106',
@@ -243,7 +243,7 @@ RP_measures_list <- quiet(lapply(df_list_imp_scal, apply_RP_measures, vars, emLa
 ```{r, fig.width=15, fig.height=7}
 all_RP_measures_df <- reshape::merge_all(RP_measures_list)

-rqa_feature <- "DET" #TT_vl
+rqa_feature <- "ENT_dl" #TT_vl DET

 all_RP_measures_df_long <- melt(all_RP_measures_df[, c("feature", rqa_feature)], id.vars = "feature")