Create transcript.R