小编Fer*_*ndo的帖子

读取固定宽度的文本文件

我正在尝试将这个丑陋格式的数据集加载到我的R会话中:http: //www.cpc.ncep.noaa.gov/data/indices/wksst8110.for

Weekly SST data starts week centered on 3Jan1990

Nino1+2      Nino3        Nino34        Nino4
Week          SST SSTA     SST SSTA     SST SSTA     SST SSTA 
03JAN1990     23.4-0.4     25.1-0.3     26.6 0.0     28.6 0.3 
10JAN1990     23.4-0.8     25.2-0.3     26.6 0.1     28.6 0.3 
17JAN1990     24.2-0.3     25.3-0.3     26.5-0.1     28.6 0.3
Run Code Online (Sandbox Code Playgroud)

到目前为止,我可以阅读这些内容

  x = readLines(path)
Run Code Online (Sandbox Code Playgroud)

但是文件混合了"空格"和" - "作为分隔符,我不是正则表达式专家.我感谢任何有关将其变成一个漂亮而干净的R数据框架的帮助.谢谢!

r fixed-width

85
推荐指数
5
解决办法
7万
查看次数

过滤单击和双击

当用户单击我的视图时,我需要一个特定的方法来运行.当用户双击时,我需要另外一种方法.

问题是双击会触发单击,它会在我的逻辑中引入错误.我不能使用UIGestureRecognizer,因为我需要跟踪这些点.

我尝试了一些布尔,但没有机会.我也试过了cancel/perfomSelector-delay技术,但它不起作用(这很奇怪,因为其他论坛上的其他人说它有效,也许模拟器触摸检测有所不同?)

我试图让用户设置板块的位置(拖动,旋转),但我需要知道片段交叉点,剪切到板区域等,这就是为什么一个简单的布尔值不能解决问题.

提前致谢!

iphone objective-c touch taps ios

17
推荐指数
2
解决办法
7679
查看次数

神经网络与进化算法的区别

我对进化算法有很好的基础,所以现在我开始阅读人工神经网络.我在http://www.ai-junkie.com/ann/evolved/nnt2.html上看到了这个教程 ,展示了如何使用人工神经网络来发展收集地雷的坦克.它使用GA来演化每个神经元的输入权重.

我知道我可以使用GA(没有ANN)来解决同样的问题.我已经使用GA创建了一个俄罗斯方块机器人,以优化网格评估功能中的权重(查看我的博客http://www.bitsrandomicos.blogspot.com.br/).

我的问题是:在我可以单独使用GA的情况下,使用ANN + GA之间的概念/实际区别是什么?我的意思是,我的俄罗斯方块机器人是神经网络吗?(我不这么认为).

有几个相关的问题,但我找不到答案:

进化算法和神经网络是否在相同的域中使用?

何时使用遗传算法与何时使用神经网络?

谢谢!

artificial-intelligence neural-network genetic-algorithm

15
推荐指数
3
解决办法
1万
查看次数

插入缺少日期的动物园对象

我有一个缺少日期的气候时间序列(没有缺失值).例如:

n = 15
full.dates = seq(Sys.Date(), by = 'day', length = n)
serie.dates = full.dates[c(1:10, 12, 15)] # missing 11, 13, 14
y = rnorm(n)

require(zoo)    
serie = zoo(y, serie.dates)
Run Code Online (Sandbox Code Playgroud)

在给出'full.dates'向量的情况下,我如何'填充'(使用插值)这些缺失点?谢谢!

interpolation r time-series zoo

12
推荐指数
1
解决办法
4690
查看次数

Keras自定义RMSLE指标

如何在Keras中实施此指标?我的代码下面给出了错误的结果!请注意,我正在通过exp(x) - 1撤消先前的log(x + 1)变换,负面预测也会被剪切为0:

def rmsle_cust(y_true, y_pred):
    first_log = K.clip(K.exp(y_pred) - 1.0, 0, None)
    second_log = K.clip(K.exp(y_true) - 1.0, 0, None)
    return K.sqrt(K.mean(K.square(K.log(first_log + 1.) - K.log(second_log + 1.)), axis=-1)
Run Code Online (Sandbox Code Playgroud)

为了比较,这是标准的numpy实现:

def rmsle_cust_py(y, y_pred, **kwargs):
    # undo 1 + log
    y = np.exp(y) - 1
    y_pred = np.exp(y_pred) - 1

    y_pred[y_pred < 0] = 0.0
    to_sum = [(math.log(y_pred[i] + 1) - math.log(y[i] + 1)) ** 2.0 for i,pred in enumerate(y_pred)]
    return (sum(to_sum) * (1.0/len(y))) ** 0.5
Run Code Online (Sandbox Code Playgroud)

我做错了什么?谢谢!

编辑:设置axis=0 …

python metrics deep-learning keras

11
推荐指数
1
解决办法
1094
查看次数

遗传算法和俄罗斯方块

我正在使用遗传算法创建一个俄罗斯方块播放器,并面临一些问题.我已经阅读了很多相关的作品,但他们没有给我足够的GA细节.

问题是我的代理似乎很快被卡住了...我使用评估功能采取了4个功能:高度,覆盖的孔,平整度和清除行数.我读了一些使用相同评估的论文,并且能够完成数千行.

经过600代,拥有100个代理商,最好的代理商平均只能做260行,这是蹩脚的.所有代理都在播放相同的片段.

我的GA详情:

世代:600人口:100

基因:4个浮点值的数组,介于0和1之间.

均匀交叉以一定的概率发生,并且以一定的概率在两个父母之间交换基因.

突变发生在一定的概率,这里我尝试了3种不同的方法:交换基因,用随机值替换基因,或者为基因添加一些噪音值.

我有50%的精英率,并注意到一些好的特工正在被选中并生下更糟糕的特工,污染了人口.

选择是轮盘赌...

如果有人能给我详细介绍交叉和变异的最佳方式,我很感激!

谢谢,对不起这篇长篇文章感到抱歉!

algorithm genetic tetris

10
推荐指数
1
解决办法
2440
查看次数

模拟SO标签编辑器

我正在尝试在我的应用中实现"标签编辑器"字段,就像SO一样.现在我得到了这个:

编辑:我已将其编码为jQuery插件:https: //github.com/fernandotenorio/tagme.git

小提琴

http://jsfiddle.net/FernandoTen/PnYuF/

HTML

<div style="margin-left: auto; margin-right: auto; width: 400px;">      
            <span style='color: #333; font-size: small'>
                Tags [a-z A-Z 0-9 # + . -]
            </span>

            <div id='tags_container'>   
                <span id='tags_queue'></span>   
                <input type='text' id='tf' />
            </div>
</div>
Run Code Online (Sandbox Code Playgroud)

JS

$(document).ready(function () {

var rexp = /[^a-zA-Z0-9#+\.\-]/
var left = 37;
var right = 39;
var del = 8;
var space = 32;
var comma = 188;
var minlen = 3;
var maxlen = 15;
var current_tag = null

$('#tf').focus().attr('maxlength', …
Run Code Online (Sandbox Code Playgroud)

html javascript css jquery dom

9
推荐指数
1
解决办法
445
查看次数

R Sweave输出错误

我正在使用带有pdfTeX的RStudio v0.96.331,版本3.1415926-1.40.10(TeX Live 2009/Debian).我在'/ home/operacao/Myprojs/projName'中有一个R项目,这是我的工作目录.

现在,如果我在'/ home/operacao/Myprojs/projName/reports'中创建一个名为'reports'的文件夹,并在sweave文件(在reports文件夹中)中使用该代码

  setwd('/home/operacao/Myprojs/projName')
Run Code Online (Sandbox Code Playgroud)

加载一些包后,我收到错误

 Error in driver$finish(drobj) : 
 the output file 'my_report.tex' has disappeared
 Calls: <Anonymous> -> <Anonymous>
 Execution halted
Run Code Online (Sandbox Code Playgroud)

但是文件在文件夹中,我制作的图表出现在.pdf中.文本输出不会出现.

谁知道为什么会这样?如果我直接在我的工作目录中保存Sweave文件,一切正常.

谢谢!

r sweave

7
推荐指数
1
解决办法
4063
查看次数

使用带有矩阵或data.frame的融合提供不同的输出

请考虑以下代码:

set.seed(1)
M = matrix(rnorm(9), ncol = 3)
dimnames(M) = list(LETTERS[1:3], LETTERS[1:3])

print(M)
           A          B         C
A -0.6264538  1.5952808 0.4874291
B  0.1836433  0.3295078 0.7383247
C -0.8356286 -0.8204684 0.5757814

melt(M)

  Var1 Var2      value
1    A    A -0.6264538
2    B    A  0.1836433
3    C    A -0.8356286
4    A    B  1.5952808
5    B    B  0.3295078
6    C    B -0.8204684
7    A    C  0.4874291
8    B    C  0.7383247
9    C    C  0.5757814
Run Code Online (Sandbox Code Playgroud)

如果我melt使用a 调用data.frame,我会得到不同的结果:

DF = data.frame(M)

melt(DF)

  variable      value …
Run Code Online (Sandbox Code Playgroud)

r matrix dataframe melt reshape2

7
推荐指数
1
解决办法
6929
查看次数

Jquery:在按键上过滤输入

我有一个文本字段,它只接受以下字符:

允许的字符:[az 0-9 +# - .]

这是相同的过滤器SO确实在"标签"字段,当你问一个问题.如果用户键入无效字符,我希望当前文本字段值保持不变.我试过了:

$('#post_tags').keypress(function(event){
    var char = String.fromCharCode(event.which)
    var txt = $(this).val()

    if (! txt.match(/[^A-Za-z0-9+#-\.]/)){
        $(this).val(txt.replace(char, ''));
    }
})
Run Code Online (Sandbox Code Playgroud)

为什么它不起作用?谢谢!

javascript regex jquery keypress keyup

6
推荐指数
2
解决办法
3万
查看次数