{
### Data preparation ###
testdata <- data.frame(
treatment = c(rep("A", 6), rep("B", 6)),
subject = rep(c(1:6), 2),
value = c(rnorm(6, 2), rnorm(6, 1))
)
# Perform t-test (unpaired)
t_test_result <- t_test_report(
data = testdata,
treatment_col = 1,
value_col = 3
)
# Perform paired t-test
t_test_result <- t_test_report(
data = testdata,
treatment_col = 1,
value_col = 3,
paired = TRUE,
subject_col = 2
)
### Basic data description ###
print(t_test_result[[1]])
print(t_test_result$basicdata)
### T-test results ###
print(t_test_result[[2]])
print(t_test_result$t.test_results)
}
Run the code above in your browser using DataLab