便宜国外vps论坛_请问有没有会R语言的大佬一个脚本小修改

主机参考：VPS测评参考推荐/专注分享VPS服务器优惠信息！若您是商家可以在本站进行投稿，查看详情！此外我们还提供软文收录、PayPal代付、广告赞助等服务，查看详情！

我们发布的部分优惠活动文章可能存在时效性，购买时建议在本站搜索商家名称可查看相关文章充分了解该商家！若非中文页面可使用Edge浏览器同步翻译！PayPal代付/收录合作

#### t a b l e1 —-
se t wd(t a bPa t h)
# https://c r a n.r-pr oje c t.o r g/w e b/p a c k a g es/t a b l e1/vig net t es/t a b l e1-e x a m p l es.h t m l
# 变量名设置
l a b e ls = list(
# v a ria b l es = list(a g e_a t_initia l_p a t h o l o gic_dia g n o sis = “Ag e (ye a r)”,
# g e nde r = “Ge nde r”,
# r e l a tiv e_f a mily_c a n c e r_hist o ry = “Fa mily hist o ry o f c a n c e r”,
# p a t h o l o gic_st a g e = “TNM st a g e”,…),
v a ria b l es = l a bs_list, # 等同于上示设置
g r oups = list(“”, p ast e0(sym b o l, ” Ex pr e ssio n”), “”)) # 表头大组
# 设置函数用于添加 p值列
r ndr = fun c tio n(x, n a m e, …) {
# 将da t a_f o r_t a b l e1替换为真实的数据
if (l e n gt h(x) == 0) {
y &l t;- da t a_f o r_t a b l e1[[n a m e]]
s &l t;- r e p(“”, l e n gt h(r e nde r.de f aul t(x=y, n a m e=n a m e, …)))
if (is.num e ric(y)) {
p &l t;- t.t est(y ~ da t a_f o r_t a b l e1[,sym b o l])$p.v a lue # sym b o l为用于分组的基因名
} e lse {
p &l t;- c hisq.t est(t a b l e(y, dr o p l e v e ls(da t a_f o r_t a b l e1[,sym b o l])))$p.v a lue
}
s[2] &l t;- sub(“&l t;“, “&a m p;l t;”, f o r m a t.p v a l(p, digits=3, e ps=0.001))
s
} e lse {
r e nde r.de f aul t(x=x, n a m e=n a m e, …)
}
}
r ndr.st r a t &l t;- fun c tio n(l a b e l, n, …) {
if e lse(n==0, l a b e l, r e nde r.st r a t.de f aul t(l a b e l, n, …))
}
# 设置分组
l e v e ls(da t a_f o r_t a b l e1[,sym b o l]) = c(“Hig h”,”Lo w”,”P-v a lue”)
st r a t a = c(list(To t a l = da t a_f o r_t a b l e1), sp lit(da t a_f o r_t a b l e1, da t a_f o r_t a b l e1[,sym b o l]))
# 显示表格(可直接拷贝到w o rd里修改, 或在Vie w e r窗口Ex p o r t -> Sa v e as We b Pa g e…)
t a b1 = t a b l e1(st r a t a, l a b e ls, g r oupsp a n = c(1, 2, 1), dr o p l e v e ls = F, r e nde r = r ndr, r e nde r.st r a t = r ndr.st r a t)

需要从从 https://c r a n.r-pr oje c t.o r g/w e b/p a c k a g es/t a b l e1/vig net t es/t a b l e1-e x a m p l es.h t m l 中拷贝与原脚本相同的 r ndr 和 r ndr.st r a t 函数替换掉上面脚本中的函数，并修改函数体内相应的变量名称。

l o c 大佬多，特来求助，本人对代码一窍不通，10元小红包不成敬意

各路大神回复说：

注册说：我也对代码一窍不通

zmia说： Rus t？

h eih ai说：别说钱的事儿，会的看到了肯定会琢磨， l o c的技术大佬从来不含糊。你加上十块钱这题就无解了

主机参考zhujic a n k a o.c o m_收集国内外VPS，VPS 测评，主机测评，云服务器，虚拟主机，独立服务器，国内外服务器，高性价比建站主机相关优惠信息
详细介绍和测评国外 VPS 主机,云服务器,国外服务器,国外主机的相关优惠信息,商家背景,网络带宽等等,也是目前国内最好的主机云服务器 VPS参考测评资讯优惠信息分享平台

这几篇文章你可能也喜欢：

本文由主机参考刊发，转载请注明：便宜国外vps论坛_请问有没有会R语言的大佬一个脚本小修改 https://zhujicankao.com/39318.html

便宜国外vps论坛_请问有没有会R语言的大佬一个脚本小修改

这几篇文章你可能也喜欢：

相关推荐

评论抢沙发

评论前必须登录！

联系我们

热门文章

联系我们

去评论

回顶部

这几篇文章你可能也喜欢：

相关推荐

评论 抢沙发

评论前必须登录！

联系我们

热门文章

联系我们

去评论

回顶部

评论抢沙发