当前位置: 首页 > news >正文

黑龙江省建设工程质量协会网站做家具网站要多少钱

黑龙江省建设工程质量协会网站,做家具网站要多少钱,哪些网站做免费送东西的广告,宣传片制作企业R语言的优势在于批量处理#xff0c;常使用到循环和函数#xff0c;三线表是科研文章中必备的内容。利用函数实现自动判断数据类型和计算。使用R包#xff08;table1#xff09;。 # 创建连续性变量 continuous_var1 - c(1.2, 2.5, 3.7, 4.8, 5.9) continuous_var2 常使用到循环和函数三线表是科研文章中必备的内容。利用函数实现自动判断数据类型和计算。使用R包table1。 # 创建连续性变量 continuous_var1 - c(1.2, 2.5, 3.7, 4.8, 5.9) continuous_var2 - c(10.5, 20.3, 15.2, 8.7, 12.1) continuous_var3 - c(0.3, 0.7, 1.1, 2.0, 1.5)# 创建分类变量 category_var1 - factor(c(A, B, A, C, B)) category_var2 - factor(c(X, Y, Z, X, Z)) category_var3 - factor(c(High, Low, Medium, Medium, High))# 创建data.frame df - data.frame(ContinuousVar1 continuous_var1,ContinuousVar2 continuous_var2,ContinuousVar3 continuous_var3,CategoryVar1 category_var1,CategoryVar2 category_var2,CategoryVar3 category_var3 )# 显示data.frame df #generate three line table #pvalue pvalue - function(x, name, ...){y - df[[name]]#variableg - df[,Group]#Groupif (is.numeric(y)) {if (shapiro.test(y)$p.value0.05){p - t.test(y ~ g)$p.valuep_with_symbol - paste0(format.pval(p, digits 3, eps 0.001), *)}else{p - wilcox.test(y ~ g)$p.valuep_with_symbol - paste0(format.pval(p, digits 3, eps 0.001), **)}}else{if (length(y) 40 any(sapply(chisq.test(y,g)$expected, function(x) x 1))){p - chisq.test(y, g)$p.valuep_with_symbol - paste0(format.pval(p, digits 3, eps 0.001,trim FALSE), #)} else {p-fisher.test(y,g)$p.valuep_with_symbol - paste0(format.pval(p, digits 3, eps 0.001), ##)}}c(, p_with_symbol) }#自定义函数准备显示统计值(t值或卡方值) stat_value - function(x, name, ...) {y - df[[name]] # 变量g - df[,Group] # 分组变量if (is.numeric(y)) {# 连续变量使用 t 检验或 Mann-Whitney U 测试if (shapiro.test(y)$p.value 0.05) {s - abs(t.test(y ~ g)$statistic[[t]]) # 正态分布使用 t 检验} else {s - wilcox.test(y ~ g)[[statistic]][[W]] # 非正态分布使用 Mann-Whitney U 测试}} else {if(length(y) 40 any(sapply(chisq.test(y,g)$expected, function(x) x 1))){s-chisq.test(y, g)$statistic[[X-squared]]} else {s-fisher.test(y, g)$statistic[[X-squared]]}# 分类变量使用卡方检验s - chisq.test(y, g)$statistic[[X-squared]]}c(, format.pval(s, digits3, eps0.001)) } #定义变量的展现形式 # rndr - function(x, name, ...) { # if (!is.numeric(x)) return(render.categorical.default(x)) # what - switch(name, # Age Median [Min, Max], # Survival months Median [Min, Max] # ) # parse.abbrev.render.code(c(, what))(x) # } #绘图 library(table1) paste(sprintf(%s,colnames(df)),collapse) df$Group-c(rep(A,2),rep(B,3)) table-table1(~ContinuousVar1ContinuousVar2ContinuousVar3CategoryVar1CategoryVar2CategoryVar3|Group,enderrndr,datadf,extra.collist(Statisticsstat_value,P-valuepvalue))#保存为docx library(flextable);help(packageflextable) table_fl-t1flex(table) save_as_docx(table_fl,pathtable.docx)
http://www.huolong8.cn/news/69206/

相关文章:

  • 饶平网站建设开发公司工程部管理制度
  • wordpress谷歌字体加载慢重庆seo俱乐部联系方式
  • 站长网网站模板下载wordpress 小工具修改
  • 免费做那个的视频网站好帝国cms添加网站地图
  • 网站建设中 显示网站制作流程 优帮云
  • 网站建设动态网站推广问题
  • 备案成功的网站杭州网络科技设计中心
  • 自助房申请网站wordpress在评论框中加文字
  • 休闲咖啡厅网站开发目标初二信息课网站怎么做
  • 网站开发外贸网网站建设的公司
  • 网站建设哪家好 北京理发培训专业学校
  • 搭建网站需要哪些东西企业服务有哪些内容
  • 十年经验网站开发公司微信主题wordpress
  • 湖北网站建设报价便宜电商网站建设
  • 网站后台上传表格简述网站开发具体流程图
  • 网站wordpress入侵今天广州新闻最新消息
  • 农业推广网站建设无锡建网站
  • 单职业传奇网站wordpress 创建分类
  • 男女做爰视频免费网站平面设计培训班课程
  • dw+如何做自适应网站安徽省建设工程安全协会网站
  • asp网站开发的背景与环境免费招聘模板下载
  • 网站建设价格标准新闻小程序启动失败 错误码
  • 怎样下载网站模版怎么运用区块链做网站
  • 免费网站注册免费创建网站网站内页301重定向
  • 长宁企业网站制作做网站公奇闻司郑州汉狮
  • 淘宝上面建设网站安全么8步快速搭建个人网站视频
  • 网站备案号在哪里查询企业所得税政策最新2023税率
  • 广西壮锦网站建设策划书网络外包服务公司
  • 购买网站空间ftp设计淮南市招标投标信息网
  • 宁波网站扔优化那个网站做外贸好