fork download
copy 
  1. s <- c(154,154,186,243,159,174,183,163,192,181)
  2. s_mean <- mean(s) #표본평균
  3. s_s <- sd(s) #표본표준편차
  4. s_n <- length(s) #표본크기
  5. mu0 <- 160 #귀무가설의 평균
  6. t_test <- (s_mean-mu0)/(s_s/sqrt(s_n)) #t-검정 통계량
  7.  
  8. alpha <- 0.05 #유의수준
  9.  
  10. t.test(s, mu=160, alternative="greater")
Success #stdin #stdout 0.24s 42020KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
	One Sample t-test

data:  s
t = 2.2653, df = 9, p-value = 0.02487
alternative hypothesis: true mean is greater than 160
95 percent confidence interval:
 163.6059      Inf
sample estimates:
mean of x 
    178.9
https://ideone.com/xF0DyI
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!