Skip to contents

This function calculates stylistic similarity over a sequence of conversation exchanges within a single dyad.

Usage

style_sim_seq(conversation, window_size = 3)

Arguments

conversation

A data frame representing the conversation

window_size

An integer specifying the size of the sliding window

Value

A list containing the sequence of similarities and the average similarity

Examples

conversation <- data.frame(
  processed_text = c("How are you doing?", "I'm doing great, thanks!",
                     "That's wonderful to hear.", "I'm glad you're doing well.")
)
result <- style_sim_seq(conversation, window_size = 2)
print(result)
#> $sequence
#> [1] 1.0000000 0.8107496
#> 
#> $average
#> [1] 0.9053748
#>