# Load dataset
df <- datana::fertiliza2
head(df)
## Computes the t-test statistics (from the 'stats' package)
t.value <- stats::t.test(df$vol)
t.value
t.v <- as.numeric(t.value$statistic);t.v
deg.f <- as.numeric(t.value$parameter);deg.f
## Obtaining the p ## pvalt(t.v,deg.f)
Run the code above in your browser using DataLab