katsu_urology

katsu_urology

最近の記事

ノモグラム

library(rms) fURS = TUL0108$flexiblebasket.yes age = TUL0108$age bmi = TUL0108$bmi.imputed diabetes = TUL0108$diabetes sex = TUL0108$sex.1f ps = TUL0108$ps.declined size = TUL0108$renoureter.size.revised burden = TUL0108$renoureter.multi.re

    • Lasso回帰による変数選択

      fURS = TUL0110$flexiblebasket.yes age = TUL0110$age bmi = TUL0110$bmi.imputed diabetes = TUL0110$diabetes sex = TUL0110$sex.1f ps = TUL0110$ps.declined size = TUL0110$renoureter.size.revised burden = TUL0110$renoureter.multi.revised time =

      • Mac Singlecell

        MAC terminal common@h21 ~ % cd /Users/common/Documents/scRNAseq01 common@h21 scRNAseq01 % split -l 1000 ccRCC_scRNASeq_NormalizedCounts1.txt ccRCC_scRNASeq_NormalizedCounts1.txt. common@h21 scRNAseq01 % R studio rm(, list = ls()) library

        • consensus cluster

          if (!requireNamespace("BiocManager", quietly = TRUE)) install.packages("BiocManager") BiocManager::install("ConsensusClusterPlus") library(ALL) data(ALL) d=exprs(ALL) d[1:5,1:5] # 12625gene 128 patient ## ABOUT apply() ## # apply(datase

          Time dependant ROC

          library(survivalROC) #####dataにdata.frameいれる##### data(FTUL1028) ###365を別の日付に### cutoff <- 365 FTUL= survivalROC(Stime=FTUL1028$intervention.days,status=FTUL1028$intervention.cencor, marker = FTUL1028$age65, predict.time = cutoff, met

          Time dependant ROC

          KMのPlotのマークを変える

          km <- NULL km.summary.table <- NULL km <- survfit(Surv((intervention.days/30.4375),intervention.event==1)~1, data=FTUL1107, na.action = na.omit, conf.type="log-log") windows(width=7, height=7); par(lwd=1, las=1, family="sans", cex=1, mgp=

          KMのPlotのマークを変える