(UniversalSet <- -15:15)## [1] -15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3
## [20] 4 5 6 7 8 9 10 11 12 13 14 15Size <- 12
(RandomSet <- sample(UniversalSet,Size,rep=TRUE))## [1] -11 10 -6 -11 5 -1 -6 -12 -9 -1 12 -1dat <- list()
Sums <- list()
counter = 0
for (i in 1:(Size-1)){
data <- c(RandomSet[i], RandomSet[i+1])
counter = counter + 1
dat[[counter]] <- data
Sums[[counter]] <-sum(data)
}
head(dat)## [[1]]
## [1] -11 10
##
## [[2]]
## [1] 10 -6
##
## [[3]]
## [1] -6 -11
##
## [[4]]
## [1] -11 5
##
## [[5]]
## [1] 5 -1
##
## [[6]]
## [1] -1 -6tail(dat)## [[1]]
## [1] -1 -6
##
## [[2]]
## [1] -6 -12
##
## [[3]]
## [1] -12 -9
##
## [[4]]
## [1] -9 -1
##
## [[5]]
## [1] -1 12
##
## [[6]]
## [1] 12 -1S <- c(-11, 6, -10, 1, -6, 8, -13, 10, -10, 10, 5, -11)
subset_length <- 3
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
S <- c(-11, 6, -10, 1, -6, 8, -13, 10, -10, 10, 5, -11)
subset_length <- 2
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
for (i in 1:(num_subsets - 1)) {
subsets[[i]] <- S[i:(i + subset_length - 1)]
sums[i] <- sum(subsets[[i]])
}
# Create a data frame with subsets and their sums
subset_data <- data.frame(Subsets = subsets[1:(num_subsets - 1)], Sums = sums[1:(num_subsets - 1)])
print(subset_data)## Subsets.c..11..6. Subsets.c.6...10. Subsets.c..10..1. Subsets.c.1...6.
## 1 -11 6 -10 1
## 2 6 -10 1 -6
## 3 -11 6 -10 1
## 4 6 -10 1 -6
## 5 -11 6 -10 1
## 6 6 -10 1 -6
## 7 -11 6 -10 1
## 8 6 -10 1 -6
## 9 -11 6 -10 1
## 10 6 -10 1 -6
## Subsets.c..6..8. Subsets.c.8...13. Subsets.c..13..10. Subsets.c.10...10.
## 1 -6 8 -13 10
## 2 8 -13 10 -10
## 3 -6 8 -13 10
## 4 8 -13 10 -10
## 5 -6 8 -13 10
## 6 8 -13 10 -10
## 7 -6 8 -13 10
## 8 8 -13 10 -10
## 9 -6 8 -13 10
## 10 8 -13 10 -10
## Subsets.c..10..10. Subsets.c.10..5. Sums
## 1 -10 10 -5
## 2 10 5 -4
## 3 -10 10 -9
## 4 10 5 -5
## 5 -10 10 2
## 6 10 5 -5
## 7 -10 10 -3
## 8 10 5 0
## 9 -10 10 0
## 10 10 5 15S <- c(-11, 6, -10, 1, -6, 8, -13, 10, -10, 10, 5, -11)
subset_length <- 3
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
for (i in 1:(num_subsets - 1)) {
subsets[[i]] <- S[i:(i + subset_length - 1)]
sums[i] <- sum(subsets[[i]])
}
# Create a data frame with subsets and their sums
subset_data <- data.frame(Subsets = subsets[1:(num_subsets - 1)], Sums = sums[1:(num_subsets - 1)])
print (subset_data)## Subsets.c..11..6...10. Subsets.c.6...10..1. Subsets.c..10..1...6.
## 1 -11 6 -10
## 2 6 -10 1
## 3 -10 1 -6
## 4 -11 6 -10
## 5 6 -10 1
## 6 -10 1 -6
## 7 -11 6 -10
## 8 6 -10 1
## 9 -10 1 -6
## Subsets.c.1...6..8. Subsets.c..6..8...13. Subsets.c.8...13..10.
## 1 1 -6 8
## 2 -6 8 -13
## 3 8 -13 10
## 4 1 -6 8
## 5 -6 8 -13
## 6 8 -13 10
## 7 1 -6 8
## 8 -6 8 -13
## 9 8 -13 10
## Subsets.c..13..10...10. Subsets.c.10...10..10. Subsets.c..10..10..5. Sums
## 1 -13 10 -10 -15
## 2 10 -10 10 -3
## 3 -10 10 5 -15
## 4 -13 10 -10 3
## 5 10 -10 10 -11
## 6 -10 10 5 5
## 7 -13 10 -10 -13
## 8 10 -10 10 10
## 9 -10 10 5 5S <- c(-11, 6, -10, 1, -6, 8, -13, 10, -10, 10, 5, -11)
subset_length <- 4
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
for (i in 1:(num_subsets - 1)) {
subsets[[i]] <- S[i:(i + subset_length - 1)]
sums[i] <- sum(subsets[[i]])
}
# Create a data frame with subsets and their sums
subset_data <- data.frame(Subsets = subsets[1:(num_subsets - 1)], Sums = sums[1:(num_subsets - 1)])
print (subset_data)## Subsets.c..11..6...10..1. Subsets.c.6...10..1...6. Subsets.c..10..1...6..8.
## 1 -11 6 -10
## 2 6 -10 1
## 3 -10 1 -6
## 4 1 -6 8
## 5 -11 6 -10
## 6 6 -10 1
## 7 -10 1 -6
## 8 1 -6 8
## Subsets.c.1...6..8...13. Subsets.c..6..8...13..10. Subsets.c.8...13..10...10.
## 1 1 -6 8
## 2 -6 8 -13
## 3 8 -13 10
## 4 -13 10 -10
## 5 1 -6 8
## 6 -6 8 -13
## 7 8 -13 10
## 8 -13 10 -10
## Subsets.c..13..10...10..10. Subsets.c.10...10..10..5. Sums
## 1 -13 10 -14
## 2 10 -10 -9
## 3 -10 10 -7
## 4 10 5 -10
## 5 -13 10 -1
## 6 10 -10 -5
## 7 -10 10 -3
## 8 10 5 15S <- c(-11, 6, -10, 1, -6, 8, -13, 10, -10, 10, 5, -11)
subset_length <- 6
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
for (i in 1:(num_subsets - 1)) {
subsets[[i]] <- S[i:(i + subset_length - 1)]
sums[i] <- sum(subsets[[i]])
}
# Create a data frame with subsets and their sums
subset_data <- data.frame(Subsets = subsets[1:(num_subsets - 1)], Sums = sums[1:(num_subsets - 1)])
print (subset_data)## Subsets.c..11..6...10..1...6..8. Subsets.c.6...10..1...6..8...13.
## 1 -11 6
## 2 6 -10
## 3 -10 1
## 4 1 -6
## 5 -6 8
## 6 8 -13
## Subsets.c..10..1...6..8...13..10. Subsets.c.1...6..8...13..10...10.
## 1 -10 1
## 2 1 -6
## 3 -6 8
## 4 8 -13
## 5 -13 10
## 6 10 -10
## Subsets.c..6..8...13..10...10..10. Subsets.c.8...13..10...10..10..5. Sums
## 1 -6 8 -12
## 2 8 -13 -14
## 3 -13 10 -10
## 4 10 -10 -10
## 5 -10 10 -1
## 6 10 5 10