如何解决如何自动选择要渲染到观星表的元素
我保存了三个回归（reg1、reg2、reg3）以及它们的标准误差（reg.se1、reg.se2、reg.se3）和聚类 p 值（reg.crp1、reg.crp2、reg.crp3） .我想用观星者创建一个图表：
stargazer(list(reg1,reg2,reg3),se=list(reg.se1,reg.se2,reg.se3),p=list(reg.crp1,reg.crp2,reg.crp3))
这很有效，但我需要再添加 30 个回归，我想知道是否有办法创建一个循环，以便我可以自动执行它，而不必手动添加额外的 30 个回归？
非常感谢，
最大
解决方法
我不认为你需要一个循环。对于一些有创意的字符串匹配$('#following-btn').click(function() {
let user_id = $(this).attr('data-id'); // Use $(this) to avoid re-querying the DOM
let follow = $(this).value().toUpperCase(); // Lets avoid case-sensitivity by making everything uppercase for comparison
var url = '/account/follow/';
var btn_text = 'unfollow';
var btn_class = 'btn btn-warning text-center mx-auto';
if (follow === 'UNFOLLOW') {
url = '/account/unfollow/';
btn_text = 'follow';
btn_class = 'btn btn-primary text-center mx-auto';
}
$.ajax({
url: url,method:'POST',data:{'user.id':user_id,},headers: {
'X-CSRFToken': csrftoken,success: function(data) {
if (data['status'] === 'ok'){
$(this).text(btn_text);
$(this).attr({class: btn_class});
}
}
});
});
应该够了。我已经使用ls()库来实现这一点，但stringr在基础R应太
?grep现在，你可以通过创建斯塔盖泽表
library(stringr)
## this expression picks up everything that starts with "reg",but the fourth symbol is not '.'
coeflist <- ls()[!is.na(str_match(ls(),'^reg[^.;]+'))]
## this expression picks up everything that starts with "reg.se"
selist <- ls()[!is.na(str_match(ls(),'^reg.se'))]
## this expression picks up everything that starts with "reg.crp"
pvallist <- ls()[!is.na(str_match(ls(),'^reg.crp'))]
您需要确保您的命名空间没有其他元素，将有匹配的名称。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
