戴尔r240服务器安装软件方法:
1、打开另一台设备,将需要安装的软件,下载至U盘。
2、将下载软件的U盘,插入戴尔r240服务器。
3、打开U盘,在弹出的页面,光标移动到待安装软件上。
4、运行安装程序,等待安装完成即可。
rm(list=ls())##清除之前数据
library(rms) ###加载rms包#
library(foreign)
library(survival)
library(rmda)
##installpackages("DynNom")
library(DynNom)
setwd("C://Users//zhanglingyu//Desktop//测试") #设置工作目录
rt<- readtable('测试txt',header=T,sep="\t")
head(rt) #查看前5行的数据
str(rt)
##接着对所有变量数据进行打包
ddist <- datadist(rt) #将数据打包
options(datadist='ddist')
model1<- lrm(rt$fustat ~ Age+Gender+Tau+EMPG+Glu+HCY+VB12+ALB, data = rt)
summary(model1)
par(mgp=c(16,06,0),mar=c(2,2,2,2)) ##设置画布
nomogram <- nomogram(model1,fun=function(x)1/(1+exp(-x)), ##逻辑回归计算公式
funat = c(0001,001,005,seq(01,09,by=01),095,099,0999),#风险轴刻度
funlabel = "Risk of Alzheimer Disease", #风险轴便签
lp=T, ##是否显示系数轴
confint = F, ##每个得分的置信度区间,用横线表示,横线越长置信度越
abbrev = F#是否用简称代表因子变量
)
plot(nomogram,
#1变量与图形的占比
xfrac=35,
#2变量字体加粗
cexvar=1,
#3数轴:字体的大小
cexaxis=08,
#4数轴:刻度的长度
tcl=-05,
#5数轴:文字与刻度的距离
lmgp=03,
#6数轴:刻度下的文字,1=连续显示,2=隔一个显示一个
labelevery=1,
#71个页面有几个数轴(这个可以压缩行间距)
naxes=13,
#8垂直线的颜色
colgrid=gray(c(08, 095)),
#9线性预测轴名字
lplabel="Linear Predictorlp",
#10变量分数名字
pointslabel='Points',
#11总分名字
totalpointslabel='Total Points',
forcelabel=F#没啥用TRUE强制标记的每个刻度线都绘制标签,我也没研究明白
)
#运行以展示Nomogram每个变量的分数
model1
##生成改良诺模图
plot(nomogram,colgrid = c("Tomato2","DodgerBlue"))
欢迎分享,转载请注明来源:浪漫分享网
评论列表(0条)