R語(yǔ)言吸煙者假設(shè)檢驗(yàn)數(shù)據(jù)分析可視化案例分析報(bào)告(附代碼數(shù)據(jù))

R語(yǔ)言吸煙者假設(shè)檢驗(yàn)數(shù)據(jù)分析案例分析報(bào)告加載#download.file("/stat/data/nc.RData",destfile="nc.RData")load("nc.RData")這個(gè)數(shù)據(jù)集有什么情況？我們的樣本中有多少個(gè)案例summary(nc)Categorical:

Maturity,premie,marital,lowbirthweight,gender,habit.whitemom

Numerical:

fage,mage,weeks,gained,visits,weight.對(duì)于數(shù)值變量，是否有異常值？par(mfrow=c(3,2))hist(nc$fage)hist(nc$mage)hist(nc$weeks)hist(nc$gained)hist(nc$visits)hist(nc$weight)你可以看到，重量和周數(shù)低的離群值和訪問具有很高的異常值。做一個(gè)并排boxplot。強(qiáng)調(diào)這兩個(gè)變量之間的關(guān)系是什么？boxplot(nc$weight~nc$habit,data=nc,col="lightblue")吸煙者似乎有重量較輕的嬰兒。檢查是否滿足推理所需的條件。請(qǐng)注意，您將需要獲取樣本大小以檢查條件。您可以使用上面的命令來計(jì)算組大小，但是用長(zhǎng)度替換平均值。len<-by(nc$weight,nc$habit,length)len##nc$habit:nonsmoker##[1]873##--------------------------------------------------------##nc$habit:smoker##[1]126len>30##nc$habit##nonsmokersmoker##TRUETRUE如果吸煙和不吸煙母親所生的嬰兒的平均體重不同，則寫出測(cè)試的假設(shè)。library(openintro)library(BHH2)inference(y=nc$weight,x=nc$habit,est="mean",type="ht",null=0,alternative="twosided",method="theoretical")##Responsevariable:numerical,Explanatoryvariable:categorical##Differencebetweentwomeans##Summarystatistics:##n_nonsmoker=873,mean_nonsmoker=7.1443,sd_nonsmoker=1.5187##n_smoker=126,mean_smoker=6.8287,sd_smoker=1.3862##Observeddifferencebetweenmeans(nonsmoker-smoker)=0.3155####H0:mu_nonsmoker-mu_smoker=0##HA:mu_nonsmoker-mu_smoker!=0##Standarderror=0.134##Teststatistic:Z=2.359##p-value=0.0184將類型參數(shù)改為“ci”，構(gòu)造并記錄吸煙與不吸煙母親所生嬰兒體重之間差異的置信區(qū)間。inference(y=nc$weight,x=nc$habit,est="mean",type="ci",null=0,alternative="twosided",method="theoretical",order=c("smoker","nonsmoker"))##Responsevariable:numerical,Explanatoryvariable:categorical##Differencebetweentwomeans##Summarystatistics:##n_smoker=126,mean_smoker=6.8287,sd_smoker=1.3862##n_nonsmoker=873,mean_nonsmoker=7.1443,sd_nonsmoker=1.5187##Observeddifferencebetweenmeans(smok