class.var1 <- class(var1)
print("Class of var1:")
## [1] "Class of var1:"
print(class.var1)
## [1] "numeric"
print("First 100 elements of var1 (if applicable):")
## [1] "First 100 elements of var1 (if applicable):"
tryCatch({
print(var1[1:min(100, length(var1))])
}, error = function(e) {
print("Error: Failed to print the first 100 elements of var1.")
})
## [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [92] 1 1 1 1 1 1 1 1 1
set.seed(123)
print("Random sample of 100 elements from var1 (if applicable):")
## [1] "Random sample of 100 elements from var1 (if applicable):"
tryCatch({
print(sample(na.omit(str_sub(var1, end = 500)), size = min(100, length(na.omit(var1))), replace = FALSE))
}, error = function(e) {
print("Error: Sampling failed. Check if var1 has enough valid elements.")
})
## [1] "2" "42" "40" "48" "40" "34" "10" "8" "13" "38" "27" "21" "40" "29" "37" "30" "31" "48" "19" "39" "46" "2" "48" "38" "31" "51" "29" "38" "48" "17" "20" "48" "40" "36" "34" "20"
## [37] "19" "8" "40" "19" "25" "39" "32" "20" "1" "45" "48" "19" "48" "20" "48" "20" "47" "48" "48" "47" "40" "39" "19" "55" "29" "47" "37" "34" "48" "13" "31" "48" "6" "12" "48" "8"
## [73] "45" "36" "46" "91" "48" "51" "47" "20" "31" "12" "49" "40" "37" "18" "42" "55" "46" "91" "48" "17" "8" "22" "12" "95" "39" "40" "51" "36"
if (inherits(var1, c("numeric", "integer"))) {
print("Summary of var1:")
tryCatch(print(summary(var1)), error = function(e) {print("Error: summary() failed.")})
print("Range of var1:")
tryCatch(print(range(var1)), error = function(e) {print("Error: range() failed.")})
print("Length of var1:")
tryCatch(print(length(var1)), error = function(e) {print("Error: length() failed.")})
print("Structure of var1:")
tryCatch(str(var1), error = function(e) {print("Error: str() failed.")})
print("Standard deviation of var1:")
tryCatch(print(sd(var1)), error = function(e) {print("Error: sd() failed.")})
print("Histogram of var1:")
tryCatch(hist(var1[!is.na(var1)]), error = function(e) {print("Error: hist() failed.")})
print("Boxplot of var1:")
tryCatch(boxplot(var1), error = function(e) {print("Error: boxplot() failed.")})
print("Table of var1:")
tryCatch(print(table(var1)), error = function(e) {print("Error: table() failed.")})
print("Proportion of NA values in var1:")
tryCatch(print(mean(is.na(var1))), error = function(e) {print("Error: mean(is.na()) failed.")})
print("Total count of NA values in var1:")
tryCatch(print(sum(is.na(var1))), error = function(e) {print("Error: sum(is.na()) failed.")})
print("Sorted var1:")
tryCatch(print(sort(var1)), error = function(e) {print("Error: sort() failed.")})
} else if (inherits(var1, "character")) {
print("Length of var1:")
tryCatch(print(length(var1)), error = function(e) { print("Error: length() failed.") })
print("Class of var1:")
tryCatch(print(class(var1)), error = function(e) { print("Error: class() failed.") })
print("Structure of var1:")
tryCatch(str(var1), error = function(e) { print("Error: str() failed.") })
print("Summary of var1:")
tryCatch(print(summary(var1)), error = function(e) { print("Error: summary() failed.") })
print("Proportion of NA values in var1:")
tryCatch(print(mean(is.na(var1))), error = function(e) { print("Error: mean(is.na()) failed.") })
print("Total count of NA values in var1:")
tryCatch(print(sum(is.na(var1))), error = function(e) { print("Error: sum(is.na()) failed.") })
# Cálculos auxiliares com tryCatch para garantir segurança
len.var1 <- tryCatch(length(var1), error = function(e) { print("Error: length(var1) failed.") })
len.unique.var1 <- tryCatch(length(unique(var1)), error = function(e) { print("Error: length(unique(var1)) failed.") })
nchar.var1 <- tryCatch(nchar(var1, allowNA = TRUE), error = function(e) { print("Error: nchar(var1, allowNA = TRUE) failed.") })
ten.max.nchar.index <- tryCatch(order(nchar.var1, decreasing = TRUE)[1:10],
error = function(e) { print("Error: order(nchar(var1)) failed.") })
var1.30.char.limited <- tryCatch(unique(str_sub(var1, end = 30)),
error = function(e) { print("Error: str_sub(var1, end = 30) failed.") })
df.min.char <- tryCatch({
df <- data.frame(var1_30 = var1.30.char.limited,
nchar = nchar(var1.30.char.limited, allowNA = TRUE))
df <- arrange(df, nchar) %>% slice(1:25)
df
}, error = function(e) { print("Error: constructing df.min.char failed.") })
print("Substring of top 10 longest var1 (limited to 500 characters):")
tryCatch(print(str_sub(var1[ten.max.nchar.index], end = 500)),
error = function(e) { print("Error: str_sub() for ten.max.nchar.index failed.") })
print("Data frame of 25 smallest unique char-limited values:")
tryCatch(print(df.min.char), error = function(e) { print("Error: printing df.min.char failed.") })
print("Summary of nchar(var1, allowNA = TRUE):")
tryCatch(print(summary(nchar.var1)), error = function(e) { print("Error: summary(nchar(var1, allowNA = TRUE)) failed.") })
print("Histogram of nchar(var1, allowNA = TRUE):")
tryCatch(hist(nchar.var1), error = function(e) { print("Error: hist(nchar(var1, allowNA = TRUE)) failed.") })
print("Boxplot of nchar(var1, allowNA = TRUE):")
tryCatch(boxplot(nchar.var1), error = function(e) { print("Error: boxplot(nchar(var1, allowNA = TRUE)) failed.") })
# Avaliações para testar se var1 é muito grande e pode causar problemas
var1.unique.fraction <- tryCatch(len.unique.var1 / len.var1,
error = function(e) { print("Error: computing unique fraction failed.") })
cond1 <- tryCatch(var1.unique.fraction > 0.20,
error = function(e) { print("Error: evaluating cond1 failed.") })
cond2 <- tryCatch(len.unique.var1 > 10000,
error = function(e) { print("Error: evaluating cond2 failed.") })
max.char.var1 <- tryCatch(max(nchar.var1, na.rm = T),
error = function(e) { print("Error: max(nchar(var1, allowNA = TRUE)) failed.") })
cond3 <- tryCatch(max.char.var1 > 300,
error = function(e) { print("Error: evaluating cond3 failed.") })
tests <- tryCatch(all(cond1, cond2, cond3),
error = function(e) { print("Error: evaluating tests failed.") })
if (identical(tests, TRUE)) {
set.seed(12345)
print("Random sample of 10000 elements from var1 (if applicable):")
df.reduced <- tryCatch({
sample(str_sub(var1, end = 100), size = 10000, replace = FALSE)
}, error = function(e) { print("Error: Sampling 10000 failed. Check if var1 has enough valid elements.") })
#df.reduced <- tryCatch(str_sub(df.reduced, end = 100),
# error = function(e) { print("Error: str_sub() on df.reduced failed.") })
df.reduced.tabled <- tryCatch(as.data.frame(table(df.reduced)),
error = function(e) { print("Error: creating table from df.reduced failed.") })
df.reduced.tabled$nchar <- tryCatch(nchar(as.character(df.reduced.tabled$df.reduced)),
error = function(e) { print("Error: computing nchar for df.reduced.tabled failed.") })
print("Data frame of reduced table arranged by nchar:")
tryCatch(print(arrange(df.reduced.tabled, nchar)),
error = function(e) { print("Error: arranging df.reduced.tabled failed.") })
print("Table of character counts in df.reduced:")
tryCatch(print(table(sort(nchar(df.reduced)))),
error = function(e) { print("Error: table of nchar(df.reduced) failed.") })
} else {
print("Table of var1:")
tryCatch(print(table(var1)), error = function(e) { print("Error: table(var1) failed.") })
print("Unique values of var1:")
tryCatch(print(unique(var1)), error = function(e) { print("Error: unique(var1) failed.") })
print("Character count per element in var1:")
tryCatch(print(nchar(var1, allowNA = TRUE)), error = function(e) { print("Error: nchar(var1, allowNA = TRUE) failed.") })
print("Sorted var1:")
tryCatch(print(sort(var1)), error = function(e) { print("Error: sort(var1) failed.") })
}
} else if (inherits(var1, "logical")) {
print("Length of var1:")
tryCatch(print(length(var1)), error = function(e) {print("Error: length() failed.")})
print("Class of var1:")
tryCatch(print(class(var1)), error = function(e) {print("Error: class() failed.")})
print("Table of var1:")
tryCatch(print(table(var1)), error = function(e) {print("Error: table() failed.")})
print("Sum of TRUE values in var1:")
tryCatch(print(sum(var1, na.rm = TRUE)), error = function(e) {print("Error: sum() failed.")})
print("Mean of TRUE values in var1:")
tryCatch(print(mean(var1, na.rm = TRUE)), error = function(e) {print("Error: mean() failed.")})
print("Proportion of NA values in var1:")
tryCatch(print(mean(is.na(var1))), error = function(e) {print("Error: mean(is.na()) failed.")})
print("Total count of NA values in var1:")
tryCatch(print(sum(is.na(var1))), error = function(e) {print("Error: sum(is.na()) failed.")})
} else if (inherits(var1, c("Date", "POSIXct", "POSIXlt"))) {
print("Length of var1:")
tryCatch(print(length(var1)), error = function(e) {print("Error: length() failed.")})
print("Class of var1:")
tryCatch(print(class(var1)), error = function(e) {print("Error: class() failed.")})
print("Summary of var1:")
tryCatch(print(summary(var1)), error = function(e) {print("Error: summary() failed.")})
print("Range of var1:")
tryCatch(print(range(var1, na.rm = TRUE)), error = function(e) {print("Error: range() failed.")})
print("Table of var1:")
tryCatch(print(table(var1)), error = function(e) {print("Error: table() failed.")})
print("Weekdays of var1:")
tryCatch(print(weekdays(var1)), error = function(e) {print("Error: weekdays() failed.")})
print("Months of var1:")
tryCatch(print(months(var1)), error = function(e) {print("Error: months() failed.")})
} else if (inherits(var1, c("factor", "ordered"))) {
print("Length of var1:")
tryCatch(print(length(var1)), error = function(e) {print("Error: length() failed.")})
print("Class of var1:")
tryCatch(print(class(var1)), error = function(e) {print("Error: class() failed.")})
print("Structure of var1:")
tryCatch(str(var1), error = function(e) {print("Error: str() failed.")})
print("Summary of var1:")
tryCatch(print(summary(var1)), error = function(e) {print("Error: summary() failed.")})
print("Table of var1:")
tryCatch(print(table(var1)), error = function(e) {print("Error: table() failed.")})
print("Levels of var1:")
tryCatch(print(levels(var1)), error = function(e) {print("Error: levels() failed.")})
print("Unclass of var1:")
tryCatch(print(unclass(var1)), error = function(e) {print("Error: unclass() failed.")})
print("Is var1 ordered?")
tryCatch(print(is.ordered(var1)), error = function(e) {print("Error: is.ordered() failed.")})
print("Proportion of NA values in var1:")
tryCatch(print(mean(is.na(var1))), error = function(e) {print("Error: mean(is.na()) failed.")})
print("Total count of NA values in var1:")
tryCatch(print(sum(is.na(var1))), error = function(e) {print("Error: sum(is.na()) failed.")})
} else {
print("No recognized class found for var1.")
}
## [1] "Summary of var1:"
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.0 19.0 30.0 31.2 45.0 95.0
## [1] "Range of var1:"
## [1] 1 95
## [1] "Length of var1:"
## [1] 902297
## [1] "Structure of var1:"
## num [1:902297] 1 1 1 1 1 1 1 1 1 1 ...
## [1] "Standard deviation of var1:"
## [1] 16.57018
## [1] "Histogram of var1:"
## [1] "Boxplot of var1:"
## [1] "Table of var1:"
## var1
## 1 2 4 5 6 8 9 10 11 12 13 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
## 22739 4390 6156 27102 10780 20473 3294 1913 450 22124 25259 2547 4767 28488 21506 31069 53441 22092 17323 4524 8173 5651 17911 23609 22192 35648 14695 30271 3139 3022 8074
## 35 36 37 38 39 40 41 42 44 45 46 47 48 49 50 51 53 54 55 56 60 66 68 72 78 81 83 84 85 86 87
## 7130 21058 25351 14630 24923 46802 4821 22226 839 17125 21728 21721 83728 4135 3871 21189 3312 9099 19781 7332 257 306 1 3016 338 274 1 28 5337 96 1879
## 88 89 90 91 92 93 94 95
## 3250 23 654 1347 262 9 70 1526
## [1] "Proportion of NA values in var1:"
## [1] 0
## [1] "Total count of NA values in var1:"
## [1] 0
## [1] "Sorted var1:"
## [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [91] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [181] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [271] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [361] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [451] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [541] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [631] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [721] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [811] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [901] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [991] 1 1 1 1 1 1 1 1 1 1
## [ reached getOption("max.print") -- omitted 901297 entries ]