The following code chunk takes about 20-25 seconds to run: set.seed (1) dat

Extracted text: The following code chunk takes about 20-25 seconds to run: set.seed (1) dat <- rnorm(100000)="" output=""><- null="" for="" (i="" in="" 1:(length(dat)-1)){="" if(dat[i]="">< ®){="" dat[i]=""><- dat[i]="" *="" -1="" }="" if(dat[i+1]="">< 0){="" dat[i+1]=""><- dat[i+1]="" *="" -1="" }="" output=""><- c(output,="" mean(dat[i:(i+1)])="" -="" sqrt(pi^50/exp(50)))="" }="" modify="" the="" code="" to="" yield="" the="" same="" output="" but="" to="" run="" faster.="" there="" are="" at="" least="" three="" ways="" to="" increase="" the="">