Movatterモバイル変換

Example on simulated dataset

Next, we propose a simple example in which we fit PheNorm to a simulated dataset.

library(PheNorm)

Load the data

set.seed(1234)fit.dat <-read.csv("https://raw.githubusercontent.com/celehs/PheNorm/master/data-raw/data.csv")

Apply the PheNorm algorithm

fit.phenorm=PheNorm.Prob("ICD","utl", fit.dat,nm.X =NULL,corrupt.rate=0.3,train.size=nrow(fit.dat))head(fit.phenorm$probs)#> [1] 0.4662471 0.5384967 0.5455023 0.5419286 0.6086979 0.5320170