How do I fix an error when running a t-test

Question

In normal r the code for our t test runs well. When trying to Knit in markdown we get an error message.

our code is this

f1<-function(i){
        t.