fork download 
  1. be <- c(4,4,3,4,3,2,6,6,5)
  2. af <- c(1,6,2,2,4,3,5,4,3)
  3. be_s <- mean(be)
  4. af_s <- mean(af)
  5.  
  6. alpha <- 0.05
  7.  
  8. t.test(af, mu=be_s, alternative="greater")
Success #stdin #stdout 0.28s 41952KB
comments (?)
stdin 
Standard input is empty
stdout 
	One Sample t-test

data:  af
t = -1.4757, df = 8, p-value = 0.9109
alternative hypothesis: true mean is greater than 4.111111
95 percent confidence interval:
 2.353265      Inf
sample estimates:
mean of x 
 3.333333
https://ideone.com/rdiH9m
language:
R (R 3.5.2)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!