小编ruy*_*uya的帖子

我正在使用AutoFilterVBA中的表进行排序,这会产生一个较小的数据表.我只想在应用过滤器后复制/粘贴一列的可见单元格.此外,我想平均一列的过滤值并将结果放在不同的单元格中.

我在Stack上发现了这个片段,它允许我复制/粘贴过滤器的整个可见结果,但我不知道如何修改它或以其他方式只获得一列的数据(没有标题)它.

Range("A1",Cells(65536,Cells(1,256).End(xlToLeft).Column).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

除了回答(用过滤后的值计算):

tgt.Range("B2").Value =WorksheetFunction.Average(copyRange.SpecialCells(xlCellTypeVisible))

我正在尝试创建(在r中)等效于以下MATLAB函数,该函数将从N(m1,(s1)^ 2)和N(m2,(s2)^ 2)的混合生成n个样本,alpha,来自第一个高斯.

我有一个开始,但结果在MATLAB和R之间有显着差异(即,MATLAB结果偶尔会给出+ -8的值,但R版本甚至不会给出+ -5的值).请帮我解决这里有什么问题.谢谢 :-)

例如:绘制来自N(0,1)和N(0,36)的混合的1000个样本和来自第一高斯的95%的样本.将样本标准化为零和标准差1.

MATLAB

功能

function y = gaussmix(n,m1,m2,s1,s2,alpha)
y = zeros(n,1);
U = rand(n,1);
I = (U < alpha)
y = I.*(randn(n,1)*s1+m1) + (1-I).*(randn(n,1)*s2 + m2);

履行

P = gaussmix(1000,0,0,1,6,.95)
P = (P-mean(P))/std(P)
plot(P)
axis([0 1000 -15 15])
hist(P)
axis([-15 15 0 1000])

结果情节

得到的组织

[R

yn <- rbinom(1000, 1, .95)
s <- rnorm(1000, 0 + 0*yn, 1 + 36*yn)
sn <- (s-mean(s))/sd(s)
plot(sn, xlim=range(0,1000), ylim=range(-15,15))
hist(sn, xlim=range(-15,15), ylim=range(0,1000))

结果情节

得到的组织

一如既往,谢谢! …

我想使用t统计量测试R中的以下假设并计算p值：

空假设：mu <= 50

备用：mu> 50

data = c(52.7, 53.9, 41.7, 71.5, 47.6, 55.1,
       62.2, 56.5, 33.4, 61.8, 54.3, 50.0, 
       45.3, 63.4, 53.9, 65.5, 66.6, 70.0,
       52.4, 38.6, 46.1, 44.4, 60.7, 56.4);

这应该很容易，但是我不确定该怎么做。谢谢您的帮助！