小编Qbi*_*bik的帖子

如何删除R中给定字符串中的所有特殊字符并用空格替换每个特殊字符？

要删除的特殊字符是: ~!@#$%^&*(){}_+:"<>?,./;'[]-=

regex 将占一半的工作.

问题2:但是如何从外语中删除这些字符:[:punct:]？

Answer_2:替换â í ü Â á ? ? ? ?为[^[:alnum:]]in ~!@#$%^&*(){}_+:"<>?,./;'[]-=或[^a-zA-Z0-9]:
â í ü Â á ? ? ? ?

帮助页面randomforest::randomforest()说:

"classwt - 类的推荐.不需要加一个.忽略回归."

classwt当您有大量不平衡数据时,可以设置参数帮助,即.班级的先辈们有很大的不同？

如何classwt在具有3个类的数据集上训练模型时,如果先验矢量等于(p1,p2,p3),并且在测试集先验中是(q1,q2,q3)？

如何使用R将整数转换为二进制向量？

例如 :

number <- 11
[1] 1 0 1 1

如果我需要将整个数字向量(最小值= 0,最大值= 300)转换为二进制矩阵,那么最快的转换方法(使用R代码或包中的一些现有函数)是什么？

如何解释结果gc():

Garbage collection 9 = 1+0+8 (level 2) ... 
10.7 Mbytes of cons cells used (49%)
40.6 Mbytes of vectors used (72%)
          used (Mb) gc trigger (Mb) max used (Mb)
Ncells  198838 10.7     407500 21.8   350000 18.7
Vcells 5311050 40.6    7421749 56.7  5311504 40.6

我们怎样才能看到是否收集了垃圾？

如何在VBA中的立即窗口中打印二维数组？这样做是否存在任何通用方法？在立即窗口中每行绘制一行数组的一些方法可以解决这个问题,因为那时只需要为每行数组循环这个代码.

使用plot()功能时如何用透明背景绘制图例？

对于绘图中的二维图表，我们可以通过设置standoff属性来设置轴标签的间距（例如： https: //community.plotly.com/t/adding-space-beetween-axis-title-and-values/32218），但是对于 3D 绘图，没有属性，standoff因为 axis 必须指定为 的字典值scene，问题是自定义刻度标签与轴标签重叠：

import plotly.graph_objects as go
import numpy as np

ticktext = ["tick labels X"] * 3

layout = go.Layout(
         scene = dict(
                    xaxis = dict(
                        title=dict(text='xaxis'
                                   #, standoff=20 # don't work
                                  ),
                        tickvals=list(range(len(ticktext))),
                        ticktext=ticktext,
                    ),
                    yaxis = dict(
                        title='yaxis',
                        tickvals=list(range(len(ticktext))),
                        ticktext=ticktext,
                    ),
                    zaxis = dict(
                        title='zaxis',
                    )
         ),
)

# chart
data = np.array([[1,2,3],[3,1,2],[3,1,2]])

plotly_input_data = []
plotly_input_data.append(go.Surface(z = data + 1, showscale=False, opacity=0.9))
plotly_input_data.append(go.Surface(z = …

xgb.train feval和eval_metricxgb.train 之间有什么区别,这两个参数仅用于评估目的.

来自Kaggle的帖子提供了一些见解:

https://www.kaggle.com/c/prudential-life-insurance-assessment/forums/t/18473/custom-objective-for-xgboost

如何获取正在运行的进程的程序名称和任务 ID。shell()返回已启动进程的任务 ID。类似地，我想获取已经在运行且不是由宏创建的进程的任务 ID 和名称。我找到了返回程序名称但其输出缺少任务 ID 信息的代码：

http://www.vbaexpress.com/forum/archive/index.php/t-36677.html

Sub Test_AllRunningApps()
    Dim apps() As Variant
    apps() = AllRunningApps

    Range("A1").Resize(UBound(apps), 1).Value2 = WorksheetFunction.Transpose(apps)
    Range("A:A").Columns.AutoFit
End Sub

'Similar to: http://msdn.microsoft.com/en-us/library/aa393618%28VS.85%29.aspx
Public Function AllRunningApps() As Variant
    Dim strComputer As String
    Dim objServices As Object, objProcessSet As Object, Process As Object
    Dim oDic As Object, a() As Variant

    Set oDic = CreateObject("Scripting.Dictionary")

    strComputer = "."

    Set objServices = GetObject("winmgmts:\\" _
        & strComputer & "\root\CIMV2")
    Set objProcessSet = objServices.ExecQuery _
        ("SELECT Name FROM Win32_Process", …

我想以下列方式使用空范围：

Set NewRange = Union(EmptyRange, SomeRange)

我试图设置EmptyRange使用为空的范围Nothing，Empty并Null而是 “运行时错误‘5’无效的过程调用或参数”出现，看来我必须使用If语句或有是做这项工作的其他关键字？

我可以用 ：

If EmptyRange Is Nothing Then
   Set NewRange = SomeRange
Else
   Set NewRange = Union(EmptyRange, SomeRange)
End If

而不是建设：

Set NewRange = Union(EmptyRange, SomeRange)