有没有一种从数据帧的一部分获取行样本的好方法?
如果我只是有数据,如
gender <- c("F", "M", "M", "F", "F", "M", "F", "F")
age <- c(23, 25, 27, 29, 31, 33, 35, 37)
Run Code Online (Sandbox Code Playgroud)
然后我可以轻松地抽取三个Fs的年龄
sample(age[gender == "F"], 3)
Run Code Online (Sandbox Code Playgroud)
得到类似的东西
[1] 31 35 29
Run Code Online (Sandbox Code Playgroud)
但是如果我将这些数据转换为数据帧
mydf <- data.frame(gender, age)
Run Code Online (Sandbox Code Playgroud)
我不能用明显的
sample(mydf[mydf$gender == "F", ], 3)
Run Code Online (Sandbox Code Playgroud)
虽然我可以用一些荒谬的括号来编造一些令人费解的东西
mydf[sample((1:nrow(mydf))[mydf$gender == "F"], 3), ]
Run Code Online (Sandbox Code Playgroud)
得到我想要的东西
gender age
7 F 35
4 F 29
1 F 23
Run Code Online (Sandbox Code Playgroud)
有没有更好的方法让我花更少的时间来研究如何写?
它是如何/(或仅仅是"它?")可以创建一个Web组件,可以放在一个表单中,并像任何输入元素一样,在提交时发送到服务器?换句话说,Web组件可以用于创建自定义输入元素吗?
我们知道prob参数 insample用于分配权重的概率。
例如,
table(sample(1:4, 1e6, replace = TRUE, prob = c(0.2, 0.4, 0.3, 0.1)))/1e6
# 1 2 3 4
#0.2 0.4 0.3 0.1
table(sample(1:4, 1e6, replace = TRUE, prob = c(0.2, 0.4, 0.3, 0.1)))/1e6
# 1 2 3 4
#0.200 0.400 0.299 0.100
Run Code Online (Sandbox Code Playgroud)
在这个例子中,概率之和正好是 1 (0.2 + 0.4 + 0.3 + 0.1),因此它给出了预期的比率,但如果概率之和不为 1 呢?它会给出什么输出?我认为这会导致错误,但它提供了一些价值。
当概率总和大于 1 时。
table(sample(1:4, 1e6, replace = TRUE, prob = c(0.2, 0.5, 0.5, 0.1)))/1e6
# 1 2 3 4
#0.1544 0.3839 0.3848 …Run Code Online (Sandbox Code Playgroud) 我对数据库模式样本有点奇怪,我认为大多数项目都需要为它设计一个数据库.但是当我尝试在线查找样本时,这种情况确实很少见(例如,库存管理,学校管理,人力资源管理的完整数据库架构).我知道每个数据库设计都取决于项目要求,但我认为它并没有太大的不同.
我只是想知道为什么很少有人像其他源代码一样在网上踢它.
谁能指出我在哪里得到它或任何建议?
提前致谢
基本上,我需要帮助导入下载的源代码或从示例源程序创建项目.如果有人能指出我或发布步骤,我正在寻找一步一步的指示.
我是Android/Eclipse的新手.我已经安装了环境,并且已经成功编写了一个非常小的应用程序,可以在模拟器和真正的Droid X上运行.但是,我不能将任何Android样本放入项目中而不会出错.我尝试过导入,从现有的源代码创建,等等,到处都是错误.
但是,我已成功创建了一个新的空项目,然后将组件一次一个地输入到项目中,为每个文件键入或粘贴代码.我会盘旋并根据需要导入Android和其他组件.例如,WiktionarySimple只运行了几个更改和几个警告我独自留下.(我不得不在下面的陈述中添加'formatted ="false")
<string name="template_user_agent" formatted="false">"%s/%s (Linux; Android)"</string>
<string name="template_wotd_title" formatted="false">"Wiktionary:Word of the day/%s %s"</string>
Run Code Online (Sandbox Code Playgroud)
但必须有一种更简单的导入方式!我已经完成了直观的操作,并且我遵循了我发现的说明,但无济于事.任何人都可以给我一个完整的列表,如何从现有的源或从我从网上下载的源导入或创建项目?
试图学习R.来自旧统计数据的问题想要知道不同建筑工地的休息时间是否有差异.麻烦的是,文本决定每个站点雇用不同数量的工人.所以,我被困在使用不等样本大小的ANOVA寻求帮助.
site1 <- c(34,25,27,31,26,34,21)
site2 <- c(33,35,31,31,42,33)
site3 <- c(17,30,30,26,32,28,26,29)
site4 <- c(28,33,31,27,32,33,40)
Run Code Online (Sandbox Code Playgroud) 我正在使用Eclipse来了解SampleSyncAdapter示例的工作原理.我不能让我的断点工作.我在多个位置设置了一个断点但没有被击中.例如,AuthenticatorActivity.onCreate()永远不会被调用.谁知道为什么?
谢谢.
我用avfc_decode_audio3用ffmpeg将aac解码为pcm.然而,它解码为AV_SAMPLE_FMT_FLTP样本格式(PCM 32位浮点平面),我需要AV_SAMPLE_FMT_S16(PCM 16位签名 - S16LE).
我知道ffmpeg可以使用-sample_fmt轻松完成此操作.我想对代码做同样的事情,但我仍然无法弄明白.
audio_resample不起作用:它失败并显示错误消息:....转换失败.
我花了整整一天的时间来完成似乎很简单的事情。我必须创建300个“随机”序列,其中数字1,2、3和4都恰好出现12次,但是相同的数字永远不会“连续”使用两次。
我最好的尝试是:
有R个样本,其中48个项目没有替换,请使用rle测试是否存在连续值,然后仅使用不包含连续值的序列。问题:几乎没有符合此标准的随机序列,因此要花很长时间。
具有R个创建序列而没有连续值(请参见代码)。
pop<-rep(1:4,12)
y=c()
while(length(y)!=48)
{
y= c(y,sample(pop,48-length(y),replace=F))
y=y[!c(FALSE, diff(y) == 0)]
}
Run Code Online (Sandbox Code Playgroud)
问题:这将创建每个值具有不同数量的序列。然后,我尝试仅使用每个值正好为12的那些序列,但这仅使我回到问题1:花了很长时间。
必须有一些简单的方法来执行此操作,对吗?任何帮助是极大的赞赏!
有没有人知道是否有办法从Quicktime .mov文件中提取原始的,仍然压缩的音频和视频样本,使用针对Mac的Apple API/Framework,可以在64位本地编译(IE:QTKit )?我知道这个功能在Apple的QuickTime Framework中可用,它以Mac为目标,但是这个框架只能在32位下编译.
如果有人熟悉这样的框架和任何相关的示例代码,我们将非常感谢您的一些见解.
谢谢,乔希