ds: 2r, 4r, 5r, 8r

2025-12-11 14:58:04 +03:00
parent 5fd0ff7154
commit ba66cbd0ff
6 changed files with 20203 additions and 4 deletions
--- a/ds/25-1/r/2.R
+++ b/ds/25-1/r/2.R
@ -11,7 +11,7 @@ if (any(is.na(df[,2]))) {
 mean(df$income)
 median(df$income, na.rm=TRUE)

-plot(x=df$income, y=df$zipCode, xlab="income", ylab="zipCode")
+plot(y=df$income, x=df$zipCode, xlab="income", ylab="zipCode")
 df$incomelog = log10(df$income)
 hist(df$incomelog, breaks=80)
 print(min_incomelog <- log10(7e3))