A shortcut wrapper function to get the observed test statistic for a t test.
This function has been deprecated in favor of the more general `observe()`

.

```
t_stat(
x,
formula,
response = NULL,
explanatory = NULL,
order = NULL,
alternative = "two-sided",
mu = 0,
conf_int = FALSE,
conf_level = 0.95,
...
)
```

x | A data frame that can be coerced into a tibble. |
---|---|

formula | A formula with the response variable on the left and the explanatory on the right. |

response | The variable name in |

explanatory | The variable name in |

order | A string vector of specifying the order in which the levels of
the explanatory variable should be ordered for subtraction, where |

alternative | Character string giving the direction of the alternative
hypothesis. Options are |

mu | A numeric value giving the hypothesized null mean value for a one sample test and the hypothesized difference for a two sample test. |

conf_int | A logical value for whether to include the confidence
interval or not. |

conf_level | A numeric value between 0 and 1. Default value is 0.95. |

... | Pass in arguments to \infer\ functions. |

Other wrapper functions:
`chisq_stat()`

,
`chisq_test()`

,
`observe()`

,
`prop_test()`

,
`t_test()`

Other functions for calculating observed statistics:
`chisq_stat()`

,
`observe()`

```
library(tidyr)
# t test statistic for true mean number of hours worked
# per week of 40
gss %>%
t_stat(response = hours, mu = 40)
#> Warning: The t_stat() wrapper has been deprecated in favor of the more general observe(). Please use that function instead.
#> t
#> 2.085191
# t test statistic for number of hours worked per week
# by college degree status
gss %>%
tidyr::drop_na(college) %>%
t_stat(formula = hours ~ college,
order = c("degree", "no degree"),
alternative = "two-sided")
#> Warning: The t_stat() wrapper has been deprecated in favor of the more general observe(). Please use that function instead.
#> t
#> 1.11931
```