珠寶店鑽石售價不同於官價之架設檢定

場景：

• • 鑽石每克拉官價為 $5600 元。

  • 抽要調查芝加哥 25 家珠寶店，其鑽石每克拉售價資料如附件檔。

  • 顯著水準為 0.05。

問題：

• • 是否芝加哥鑽石每克拉售價與官價不同？

GNU R：

# 假設檢定 source("Statistics.R") ###################################################################################################### # 分析 (29) # H0: μ = 5600 # Ha: μ != 5600 myPopulationMean <- 5600 myLevelOfSignificance <- 0.05 # 求算 mySampleData <- read.table(file="HypothesisTesting-29.dat", header=TRUE) print(mySampleData) print(summary(mySampleData)) mySampleSize <- length(mySampleData$Price) mySampleMean <- Mean(mySampleData$Price) mySampleStdDevation <- StdDeviation(mySampleData$Price, TRUE) myZalpha <- HypothesisBothTailedTestingCriticalValue(myLevelOfSignificance) myTalpha <- HypothesisBothTailedTestingT(myLevelOfSignificance, mySampleSize - 1) myZvalue <- HypothesisTestingGetZfromSample(myPopulationMean, mySampleStdDevation, mySampleSize, mySampleMean) myPvalue <- HypothesisBothTailedTestingP(myZvalue) HypothesisBothTailedTestingAgainstNull(myLevelOfSignificance, myZalpha, myTalpha, myZvalue, myPvalue)

解答：