# NOT RUN {
#Example using a dataframe with 3 windows.
#Windows 20 and 30 are homogeneous if looking at col.two and col.three values.
window.name.column <- c(10, 10, 10, 20, 20, 20, 30, 30, 30, 30)
col.two <- c("a", "a", "a", "a", "a", "a", "a", "a", "a", "a")
col.three <- c(1, 1, 0, 1, 1, 1, 2, 2, 2, 2)
multi.window.data <- data.frame(window.name.column, col.two, col.three)
result <- GetHomogeneousWindows(multi.window.data, "window.name.column", c("col.two", "col.three"))
#As expected, it looks like two windows are homogeneous.
str(result)
#Output the two windows that are homogeneous:
result[[1]]
result[[2]]
# }
Run the code above in your browser using DataLab