小编nic*_*ico的帖子

说我有一个数组,如:

$arr[] = array("id" => 11, "name" => "First");
$arr[] = array("id" => 52, "name" => "Second");
$arr[] = array("id" => 6, "name" => "Third");
$arr[] = array("id" => 43, "name" => "Fourth");

我想得到一个ID对应的名字,以便我可以这样做:

$name = findNameFromID(43);

并获得,例如,"第四".

我想使用,array_filter但我有点卡在如何正确传递变量.我所看到的问题,比如这一个,但我似乎并没有能够解决方案扩展到多维数组.

有帮助吗？

我将PHPSESSID传递给PHP页面(通过POST),我想知道什么是消毒输入的最佳方法.就mysql_real_escape_string足够了？在处理会话ID时我是否应该考虑一些特殊问题(我的意思是,它们只能是字母和数字吗？)？

编辑: 为了澄清这个问题,我真正想知道的是:如果有人篡改POST数据,他是否可以发送一个恶意字符串作为PHPSESSID,当我打电话时会做一些令人讨厌的事情session_id($_GET['PHPSESSID'])？我个人想不出任何东西,但比抱歉更安全...

谢谢

尼科

在glm,lm和其他功能ř其中产生p-值,有恳请打印.例如 :

p found   | p printed
--------- | -----
0.000032  | <0.001 ***
0.012322  |  0.012 **
0.233432  |  0.233 

必须有一个内置的功能来产生这个,但我找不到它.我在R文档,Google和SO中搜索都没有成功.目前我使用的是手工制作的功能,但我必须复制粘贴并在每次执行分析时调用它,我想为输出表生成漂亮的pvalue.

我正在尝试编写一个简单的跟踪程序来跟踪电影中的某些点.

基本上我有一系列100帧长的电影,在深色背景上显示一些亮点.我每帧有大约100-150个点,他们在电影的过程中移动.我想跟踪它们,所以我正在寻找一些有效(但可能不会过度执行)例程来做到这一点.

更多信息:

• 这些斑点的大小是几个(约5x5)像素
• 运动不大.一个点通常不会从其原始位置移动超过5-10个像素.运动通常是平稳的.
• 这些斑点的"形状"通常是固定的,它们不会增长或缩小,但随着电影的进展它们变得不那么明亮.
• 斑点不会沿特定方向移动.他们可以向右然后向左然后向右移动
• 用户将选择每个点周围的区域,然后将跟踪该区域,因此我不需要自动查找点.

由于视频是黑白的,我虽然应该依赖于brigthness.例如,我想我可以在该区域内移动并计算前一帧中区域的区域与下一帧中各个位置的相关性.我知道这是一个非常天真的解决方案,但你认为它可能有用吗？有谁知道这样做的具体算法？它不需要超高速,只要它准确,我很高兴.

谢谢

尼科

我expand.grid用来生成向量的所有元素对,例如:

v <- 1:3
expand.grid(v,v)

这使:

  Var1 Var2
1    1    1
2    2    1
3    3    1
4    1    2
5    2    2
6    3    2
7    1    3
8    2    3
9    3    3

现在,说我想要同样的东西,但我使用的是三胞胎

expand.grid(v,v,v)

我如何将其推广到n元组,以便我可以使用new.expand.grid(v,5)并获得结果expand.grid(v,v,v,v,v)？

我正在为我的项目使用RStudio,我想要一个单独的输出屏幕.我尝试过sink(),但我需要一个新的弹出窗口.我的代码是

vd<-data.frame()
vd<-c("V1","V2")
vf<-length(vd)
i<-1
while(i<=vf){
vd<-c("V1","V2")
#print(vd)
leng<-length(vd)
selectru<-combn(vd,leng)
#print(selectru)
print(selectru[i])
fst<-selectru[i]
select<-data.frame()
select<-selectru[selectru[,1]!=selectru[i],]
m<-length(select)
select<-combn(select,m)
snd <-apply(select,2,function(rows) paste0(rows, collapse = ""))
cat(sprintf("\"%s\" =>\"%s\"\n", fst,snd))
i<-i+1
}

这些数据不是实际数据,只是示例数据.

是否可以在单独的屏幕或浏览器窗口中"仅显示"输出？无需显示任何图形或绘图操作.

我想编写一个函数,将默认值"重置"为包中所有R函数的公共参数.

这可能吗？

我想到的是这个,但这只是返回一个curried函数列表:

library(magrittr)

function(parameter){ 
   ls("package:packageName") %>%
   lapply(function(fxnName){
      functional::Curry(get(fxn), paramOfInterest = parameter)
   }
}

%>%从magrittr包装管道.

我想这样做的一个警告是丢失文档.

也许我可以通过引用一个可修改的属性并存储在包中的对象中来解决这个问题？

我正在尝试在filled.contour绘图中绘制一个框,但不幸的是,当我在fill.contour绘图创建后绘制lines()时,图形向右移动,因为刻度强制图像向左,但盒子保持在相同的坐标.这是我的代码的样子:

dev.new(width=6,height=7)
mypredict<-matrix(data=mypredict,nrow=20,ncol=25)
filled.contour(x=seq(from=-1.5,to=1.5,length=20),
y=seq(from=1,to=3.75,length=25),
z=mypredict,
col=hsv(h=seq(from=2/3,to=0,length=20),s=1,v=1)
)
top <- 3.42
bot <- 1.56
lines(c(-1,-1),c(bot,top))
lines(c(1,1),c(bot,top))
lines(c(-1,1),c(top,top))
lines(c(-1,1),c(bot,bot))

有谁知道如何在filled.contour函数中绘制这些线？否则,线条无法正确绘制到主图像上,因为图形的比例/图例位于右侧.

谢谢!

我想使用两个agruments函数'func'创建一个函数向量,例如这个:

func = function(number, coefficient) {  
    return(coefficient*number)  
}

这是我如何创建函数向量:

vector_of_functions = NULL  
for (i in 1:4) {  
vector_of_functions = c(vector_of_functions,
    function(number) func(number=number, coefficient=i))  
}

我的问题是组成我的矢量的所有函数都是相同的,即使它们是通过循环使用不同的i创建的.它接缝使用i的最后一个值(这是一个全局变量)进行评估.

有人有想法吗？

谢谢

我正在使用以下方法将图像添加到TinyMCE编辑器:

var params = {
             src: filename,
             title: "Attached image: " + filename,
             width: 500
             };

ed.execCommand("mceInsertContent", false, ed.dom.createHTML("img", params));

这会在编辑器中正确插入图像.但是,当用户点击图像时,他有能力调整图像大小.

我想知道是否有办法:

1. 防止用户仅在一个方向上调整大小(即如何为图像保持固定的宽高比)
2. 完全阻止用户调整图像大小