小编jen*_*irf的帖子

我有一个包含几百个CSV文件的文件夹.使用R将这些转换为XLS格式的最简单方法是什么？

(是的,我知道CSV与Excel兼容,但我仍有充分的理由进行转换.)

我有一个包含字符串列表的数据框

  df$a
=========
"4343-2"
"7889-5"
"4-3456"
"334-45"
"8765-4"

我想在列表上执行字符串操作以删除破折号,所以我这样做了..

df$a <- lapply(df$a, sub, "-","", df$a)

..只生成一组完全空的字符串.我弄错了什么？

我有这张金融交易表..

    PersonID  |  SeqId   | FundId | PortfolioDbu |    Date
    ----------------------------------------------------------
      456     |    1     |   B    |     0.1      |  2012-04-03
      456     |    1     |   F    |     0.5      |  2012-04-03
      456     |    1     |   H    |     0.3      |  2012-04-03
      456     |    1     |   Z    |     0.1      |  2012-04-03
       8      |    1     |   B    |     0.5      |  2012-03-23
       8      |    1     |   A    |     0.5      |  2012-03-23
       8      |    2     |   C    |     0.3      |  2011-03-24
       8      |    2     |   X    | …

我正在尝试生成四个变量的所有组合,其中每个变量都是0到10之间的整数.在R中有一个简单的方法吗？

X | Y | Z | W
-------------
0 | 0 | 0 | 0
1 | 0 | 0 | 0
1 | 1 | 0 | 0
1 | 1 | 1 | 0
.   .   .   .
.   .   .   .
.   .   .   .
10|10 |10 |10

有没有办法"访问"函数中所有传递的参数？我相信这可以通过参数数组在javascript中完成,R中是否有等价物？

myfunc <- function() {
    print(arguments[1])
    print(arguments[2])
}

R> myfunc("A","B")

[1] "A"
[1] "B"

与“悬挂电缆问题”相关的数学问题，其中电缆以悬链线的形式悬挂在两个杆上。考虑到电缆的长度，对于下垂和杆之间的距离有一些解决方案，但我的问题不同；给定已知的等高杆和杆之间的已知距离，电缆与地面相切：我想求解悬链线方程中的比例因子a ？

显然这只能通过数值求解——可以在 R 中完成吗？

我有一个点击我的每个标记调用函数displayInfo,自定义信息框的听众..

google.maps.event.addListener(markers[i], 'click', function() {
        //stop updating markers
         google.maps.event.removeListener(updateMarkersProcess);

        //call display custom infowindow function
        displayInfo(this);
    });

我的地图上有一个bounds_change监听器,用于将自定义信息框"绑定"到标记.像这样:

function displayInfo(marker) {

 var e = $('infobox');

overlay.getPanes().floatPane.appendChild(e);

displayInfoProcess = google.maps.event.addListener(map, 'bounds_changed', function() {

    show('infobox');

    var markerOffset = overlay.getProjection().fromLatLngToDivPixel(marker.position);

    e.style.top = markerOffset.y + 20 + 'px';
    e.style.left = markerOffset.x - 40 + 'px';

    e.innerHTML = marker.store + '<br><em>' + convertDistance(marker.distance);   

});
map.panTo(marker.position); 
}

然后我在地图上有一个点击监听器来隐藏infoBox并停止bounds_change监听器......

[删除此处的聆听代码]

google.maps.event.addListener(map, 'click', function() {

       google.maps.event.removeListener(displayInfoProcess);
       // google.maps.event.clearListeners(map, 'bounds_changed');
       hide('infobox');

    }); …