# NOT RUN {
### Example 1: typeind = 1 (listdata Argument)
d1 <- Data2D[[1]][c("X1", "X2")]
d2 <- Data2D[[2]][c("X1", "X2")]
d3 <- Data2D[[3]][c("X1", "X2")]
listdata <- list(d1, d2, d3)
p <- Transition(listdata = listdata, swSize = 1, typeind = 1, Survival_thrHold = 0.8,
Split_thrHold = 0.3, density_thrHold = 0.3, location_thrHold = 0.3, k = c(3,3,2))
### Example 2: typeind = 3 (listclus Argument)
D1 <- d1
D2 <- merge(d1, d2, all.x = TRUE, all.y = TRUE)
D3 <- merge(D2, d3, all.x = TRUE, all.y = TRUE)
set.seed(10)
f1 <- kmeans(D1, 3)
C1 <- list()
for(i in 1:3)C1[[i]] <- D1[f1$cluster == i, ]
f2 <- kmeans(D2, 3)
C2 <- list()
for(i in 1:3)C2[[i]] <- D2[f2$cluster == i, ]
f3 <- kmeans(D3, 2)
C3 <- list()
for(i in 1:2)C3[[i]] <- D3[f3$cluster == i, ]
listclus <- list(C1, C2, C3)
p <- Transition(listclus = listclus, typeind = 3, Survival_thrHold = 0.8,
Split_thrHold = 0.3, density_thrHold = 0.3, location_thrHold = 0.3)
### Example 3: typeind = 3 (Overlap Argument)
obj <- new("OverLap")
Overlap1 <- Overlap(obj, e1 = C1, e2 = C2)
Overlap2 <- Overlap(obj, e1 = C2, e2 = C3)
Overlap <- list(Overlap1, Overlap2)
p <- Transition(Overlap = Overlap, typeind = 2, Survival_thrHold = 0.8,
Split_thrHold = 0.3, density_thrHold = 0.3, location_thrHold = 0.3)
# }
Run the code above in your browser using DataLab