library(zoomstudentengagement)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(ggplot2)
The zoomstudentengagement
package helps instructors
analyze student engagement from Zoom transcripts, with a particular
focus on participation equity. This vignette will get you started with
the basic workflow.
Install the package from GitHub:
::install_github("revgizmo/zoomstudentengagement") devtools
Here’s a minimal example to get you started:
# Load a sample transcript
<- system.file(
transcript_file "extdata/transcripts/GMT20240124-202901_Recording.transcript.vtt",
package = "zoomstudentengagement"
)
# Process the transcript
<- process_zoom_transcript(
processed_transcript transcript_file_path = transcript_file,
consolidate_comments = TRUE,
add_dead_air = TRUE
)
# Calculate summary metrics
<- summarize_transcript_metrics(
summary_metrics transcript_file_path = transcript_file,
names_exclude = c("dead_air")
)
# View the results
head(summary_metrics)
#> # A tibble: 6 × 10
#> transcript_file name n duration wordcount comments n_perc duration_perc
#> <chr> <chr> <int> <dbl> <dbl> <I<list> <dbl> <dbl>
#> 1 GMT20240124-2029… Cono… 30 485. 1418 <chr> 66.7 72.2
#> 2 GMT20240124-2029… Srij… 8 69.1 213 <chr> 17.8 10.3
#> 3 GMT20240124-2029… Shre… 3 43.3 86 <chr> 6.67 6.45
#> 4 GMT20240124-2029… Dr. … 2 42.7 98 <chr> 4.44 6.36
#> 5 GMT20240124-2029… Ryan… 1 31.3 95 <chr> 2.22 4.65
#> 6 GMT20240124-2029… unkn… 1 0.680 1 <chr> 2.22 0.101
#> # ℹ 2 more variables: wordcount_perc <dbl>, wpm <dbl>
The zoomstudentengagement
package provides tools
for:
The typical workflow involves: