小编Gio*_*ato的帖子

如何在由RStudio和markdown生成的word文档中添加分页符

我在R Studio中使用R markdown编写Word文档.我可以得到很多东西,但目前我还没弄清楚如何才能获得分页符.我找到了解决方案,但仅针对渲染的乳胶/ pdf文档,这不是我的情况.

markdown r pandoc rstudio

30
推荐指数
5
解决办法
2万
查看次数

Rcpp函数检查是否缺少值

我正在将基于R的代码转换为基于Rcpp的代码.我的职责是:

NumericMatrix createMatrixOfLinkRatiosC(NumericMatrix matr, double threshold4Clean) {
int i,j; 
NumericMatrix myMatr(matr.nrow(),matr.ncol());
myMatr=matr;
....;

}
Run Code Online (Sandbox Code Playgroud)

我想处理对threshold4Clean缺失的函数的调用,但我没有找到怎么办...任何帮助将不胜感激.

r rcpp

13
推荐指数
3
解决办法
2831
查看次数

将补充参数传递给 hyperopt 目标函数

我正在使用 Python 的 hyperopt 库来执行 ML 超参数的优化。特别是我试图使用这个函数来找到 lightgbm 最优超参数来最小化:

def lgb_objective_map(params):
"""
objective function for lightgbm using MAP as success metric.
"""

# hyperopt casts as float
params['num_boost_round'] = int(params['num_boost_round'])
params['num_leaves'] = int(params['num_leaves'])
params['min_data_in_leaf'] = int(params['min_data_in_leaf'])

# need to be passed as parameter
params['verbose'] = -1
params['seed'] = 1

# Cross validation
cv_result = lgb.cv(
params,
lgtrain,
nfold=3,
metrics='binary_logloss',
num_boost_round=params['num_boost_round'],
early_stopping_rounds=20,
stratified=False,
)

# Update the number of trees based on the early stopping results
early_stop_dict[lgb_objective_map.i] = len(cv_result['binary_logloss-mean'])
params['num_boost_round'] = …
Run Code Online (Sandbox Code Playgroud)

python machine-learning hyperopt

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

R等价于.first或.last sas运算符

有人知道什么是SAS的最佳R替代品.或者持续.运营商?我没找到.

SAS拥有第一名.最后.自动变量,用于识别具有特定变量的相同值的组中的第一个和最后一个记录; 所以在以下数据集中定义了FIRST.model和LAST.model:

Model,SaleID,First.Model,Last.Model
Explorer,1,1,0
Explorer,2,0,0
Explorer,3,0,0
Explorer,4,0,1
Civic,5,1,0
Civic,6,0,0
Civic,7,0,1
Run Code Online (Sandbox Code Playgroud)

r sas

6
推荐指数
1
解决办法
9687
查看次数

错误调整R中的SVM

我正在调整R中的SVM,我收到以下错误:

#Error in if (any(co)) { : missing value where TRUE/FALSE needed
Run Code Online (Sandbox Code Playgroud)

我正在使用插入包

svmRTune <- train(x=dataTrain[,predModelContinuous],y=dataTrain[,outcome],method = "svmRadial", tuneLength = 14, trControl = trCtrl)
Run Code Online (Sandbox Code Playgroud)

训练集结构是

str(dataTrain)
'data.frame':   40001 obs. of  42 variables:
 $ PolNum     : num  2e+08 2e+08 2e+08 2e+08 2e+08 ...
 $ sex        : Factor w/ 2 levels "Male","Female": 1 1 1 2 1 2 1 1 1 2 ...
 $ type       : Factor w/ 6 levels "A","B","C","D",..: 3 1 1 2 2 4 3 3 3 2 ... …
Run Code Online (Sandbox Code Playgroud)

r machine-learning svm

6
推荐指数
1
解决办法
1613
查看次数

在SpatialPolygonsDataFrame上绘制SpatialPointsDataFrame

我有一个SpatialPolygonsDataFrame,我使用以下命令绘制:

spplot(milanoNILNew, "percPolVita",at = c(0,0.0696,0.08979,0.0974,0.1116,0.181),col.regions =pal,main="Quota Clienti Unipol con Polizze Vita ")
Run Code Online (Sandbox Code Playgroud)

我使用以下命令创建了一个spatialPointsDataFrame

agenziePoints<-SpatialPointsDataFrame(coords=datiAgenzie[,c("Long","Lat")],data=datiAgenzie,proj4string = llCRS, match.ID = TRUE).
Run Code Online (Sandbox Code Playgroud)

我可以绘制多边形,但我无法在同一个图上表示多边形上的agenziePoints.在此先感谢您的支持.

r spatial rgdal

6
推荐指数
1
解决办法
7830
查看次数

h2o.ai Platt标度校准

我注意到h2o.ai套件相对增加了一项功能,它可以执行补充的Platt Scaling来改善输出概率的校准。(请参阅calibrate_modelh2o手册。)但是,在线帮助文​​档中几乎没有指导。我特别想知道是否启用了Platt Scaling:

  • 它如何影响模型的排行榜?也就是说,是在排名指标之后还是之前计算平台缩放?
  • 它如何影响计算性能?
  • 是否可以calibration_frame相同(validation_frame或从计算或理论角度考虑)?

提前致谢

calibration h2o

5
推荐指数
1
解决办法
464
查看次数

Rcpp程序中的最小值和最大值

我正在将R函数转换为Rcpp函数.一切都很好,但我在使用标准的最大和最小功能方面遇到了困难.代码如下:

#include <math.h>
#include <RcppArmadillo.h>
#include <algorithm>
#include <iostream>

// [[Rcpp::depends(RcppArmadillo)]]

using namespace Rcpp;
using namespace arma;
using namespace std;

double f4RandomC(double x, double a, double b) {
  double out, temp;

  temp=(log( (a*(1-x)) / (a+x) )) /log(b) ;
  out= std::min(1,temp );
  return out;
}
Run Code Online (Sandbox Code Playgroud)

返回错误"没有matchinf函数用于调用min(int,&double).如果可能的话,我会lioke使用std :: library min函数

r rcpp

4
推荐指数
1
解决办法
2593
查看次数

熊猫从长到宽的多列整形

我有一个熊猫数据框如下:

 request_id     crash_id           counter  num_acc_x  num_acc_y  num_acc_z
    745109.0    670140638.0        0      0.010      0.000     -0.045
    745109.0    670140638.0        1      0.016     -0.006     -0.034
    745109.0    670140638.0        2      0.016     -0.006     -0.034
Run Code Online (Sandbox Code Playgroud)

我的 id 变量是:“request_id”和“crash_id”,目标变量是 nu_acc_x、num_acc_y 和 num_acc_z 我想创建一个新的 DataFrame,其中目标变量被广泛重塑,即添加 max(counter)*3 新变量,如 num_acc_x_0 , num_acc_x_1, ... num_acc_y_0,num_acc_y_1,... num_acc_z_0, num_acc_z_1 可能没有枢轴作为最终结果(我想要一个真正的 DataFrame 就像在 R 中一样)。

预先感谢您的关注

python reshape pandas

4
推荐指数
1
解决办法
3275
查看次数

sas datetime到R日期格式

我有一个包含datetime变量的SAS数据集.我已使用sas7bdat包将此数据集移植到R中,但datetime变量以整数格式显示(例如1706835972).有没有办法将此整数转换为日期格式?

r sas datetime-format

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

Rcpp分位数实现

我有一个包含 NumericVector x 的 Rcpp double。我想在 Rcpp 代码流中获得此类 x 的 .95 分位数。我不知道我怎样才能得到它。是否有 RcppArmadillo 实现?

r rcpp

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

更改 rmarkdown“目录”默认标题

我正在使用 RMarkdown 以不同于英语的语言撰写我的硕士论文。论文应以 .docx 格式呈现。阅读 SO,我发现可以提供一些 pandoc 参数,其中toc-title可以解决我的问题。尽管如此,我还是没能做到。我当前的 YAML 标头是:

output:
  word_document:
    reference_docx: stile_tesi.docx
    toc: yes
    fig_caption: true
    #pandoc_args: [
    # "--toc-title", "INDICE"
    #]
Run Code Online (Sandbox Code Playgroud)

提前致谢

r docx tableofcontents r-markdown

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

使用 texreg 和 Rmarkdown 获取 Word 文档

当我使用时Sweave,我喜欢texreg将漂亮的模型结果打印到乳胶中的包装。我转而RMarkdown制作 Word 文档,但由于我无法回收旧texreg代码,所以我面临着问题。

有什么方法可以修改这个块以在Word中获得漂亮的打印输出吗?

注意:upgradesngr.fx是一个plm包对象。

{r summary,echo=FALSE,results='markup'} htmlreg(list(upgradesngr.fx), star.symbol = "\\*", center = TRUE, doctype = FALSE)

r ms-word r-markdown texreg

2
推荐指数
1
解决办法
1266
查看次数