R 使用X¯构造基于法线的CI±；t&α；/2，n−；1）s/√；N

此CI比较的是未附着/附着耳垂和班级数据的夏季收入。我已经加载了数据并过滤了代码。我一直收到错误消息-在mn1+mn2中：较长的对象长度不是较短对象长度的倍数。 这是我的密码：

     unattached = data[data$earlobes == "Unattached",]
     un_earnings = unattached$summerEarnings
     attached = data[data$earlobes == "Attached",]
     att_earnings = attached$summerEarnings
     mn1 <- (un_earnings)
     mn2 <- (att_earnings)
     sd1 <- (un_earnings)
     sd2 <- (att_earnings)
     alpha <-  0.05
     tstar <- qt(1-alpha/2, n-1, lower=T) ## critical value
     se <- ((sd1 + sd2)/2) / sqrt(n)
     me <- tstar*se
     lci <- mn1 + mn2 - me
     uci <- mn1 + mn2 + me1
     normCI <- c(lci, uci)
     normCI

unattached=data[data$earlobes==“unattached”，]
un_收益=未附加的美元收益
附加=数据[数据$earlobes==“附加”，]
att_收益=附加的美元收益
mn1如图所示，您定义
mn1
，
mn2
，
sd1
，
sd2
的行有打字错误-应适当包括
mean（）
，
sd（）
。你能给我们一个？如图所示，定义
mn1
，
mn2
，
sd1
，
sd2
的行有打字错误-应适当包括
mean（）
，
sd（）
。你能给我们一个？