ver2_phate_repair: Original PHATE Simplified + Metric Repair

In kisungyou/exp3riment: some random stuffs

Description

Original PHATE Simplified + Metric Repair

Usage

ver2_phate_repair(data, ndim = 2, nbdk = 5, alpha = 2, time_step = NULL)

Examples

## Not run: 
# load the data
data(Embryoid, package="exp3riment")

nsample = 2000
sub_id  = sample(1:nrow(Embryoid$data), nsample)

sub_data  = Embryoid$data[sub_id,]
sub_label = Embryoid$label[sub_id]

landmark1 = ver2_phate_repair(sub_data)$embedding
landmark2 = ver2_phate_repair(sub_data)$embedding
landmark3 = ver2_phate_repair(sub_data)$embedding

opar <- par(no.readonly=TRUE)
par(mfrow=c(1,3))
plot(landmark1, pch=19, col=sub_label, main="Case 1")
plot(landmark2, pch=19, col=sub_label, main="Case 2")
plot(landmark3, pch=19, col=sub_label, main="Case 3")
par(opar)

## End(Not run)

kisungyou/exp3riment documentation built on Jan. 14, 2022, 9:16 a.m.