my_ttest <- function(x) {
  my_formula <- paste0(x, " ~ anestesia")
  t.test(as.formula(my_formula),
         data=data,
         paired=TRUE,
         alternative = "two.sided")
}

# Esta forma tiene la ventaja de que te devuelve una lista
# con todos los resultados en vez de solo imprimir en la
# pantalla el resumen
lapply(c("DOLOR90","DOLOR30","FC.90"), my_ttest)