Need to use google co$-$lab for this question, and use the R compiler, not Python. Given data: horse$\_$data$=$c$(0,2,2,1,0,0,1,1,0,3,0,2,1,0,0,1,0,1,0,1,$

$0,0,0,2,0,3,0,2,0,0,0,1,1,1,0,2,0,3,1,0,0,$

$0,0,2,0,2,0,0,1,1,0,0,2,1,1,0,0,2,0,0,0,0,$

$0,1,1,1,2,0,2,0,0,0,1,0,1,2,1,0,0,0,0,1,0,$

$1,1,1,1,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,$

$2,1,0,0,1,0,0,1,0,1,1,1,1,1,1,0,0,0,1,0,2,$

$0,0,1,2,0,1,1,3,1,1,1,0,3,0,0,1,0,1,0,0,0,$

$1,0,1,1,0,0,2,0,0,2,1,0,2,0,1,0,0,0,1,0,0,$

$1,0,0,0,0,1,0,0,0,1,1,0,1,0,0,0,0,0,2,1,1,$

$1,0,2,1,1,0,1,2,0,1,0,0,0,0,1,1,0,1,0,2,0,$

$2,0,0,0,0,2,1,3,0,1,1,0,0,0,0,2,4,0,1,3,0,$

$1,1,1,1,2,1,3,1,3,1,1,1,2,1,1,3,0,4,0,1,0,$

$3,2,1,0,2,1,1,0,0,0,1,0,0,0,0,0,1,0,1,1,0,$

$0,0,2,2,0,0,0,0)$