Skip to contents

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

Usage

sent_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("I love this movie!", "It's really amazing.",
                     "The acting is superb.", "I couldn't agree more.")
)
result <- sent_sim_seq(conversation, window_size = 2)
print(result)
#> $sequence
#> [1] 0.9687500 0.8575962
#> 
#> $average
#> [1] 0.9131731
#>