Добавил:
Koboku1
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:R Language (Сковорцов) / 4
.txt #4.1
df <- mtcars
descriptions_stat <- aggregate(df[,c(3,4)], by = list(df$am), FUN = sd)
descriptions_stat
#4.2
my_vector <- rnorm(30)
my_vector[sample(1:30, 10)] <- NA
fixed_vector <- mean(my_vector, na.rm = T)
fixed_vector
for (i in 1:length(my_vector))
{
if (is.na(my_vector[i]))
{
my_vector[i] <- fixed_vector
}
}
my_vector
#4.3
install.packages('ggplot2')
library(ggplot2)
df <- mtcars
plot1 <- ggplot(df, aes(x = mpg, y = disp, col = hp, size = qsec))+
geom_point()
plot1
df <- mtcars
descriptions_stat <- aggregate(df[,c(3,4)], by = list(df$am), FUN = sd)
descriptions_stat
#4.2
my_vector <- rnorm(30)
my_vector[sample(1:30, 10)] <- NA
fixed_vector <- mean(my_vector, na.rm = T)
fixed_vector
for (i in 1:length(my_vector))
{
if (is.na(my_vector[i]))
{
my_vector[i] <- fixed_vector
}
}
my_vector
#4.3
install.packages('ggplot2')
library(ggplot2)
df <- mtcars
plot1 <- ggplot(df, aes(x = mpg, y = disp, col = hp, size = qsec))+
geom_point()
plot1
Соседние файлы в папке R Language (Сковорцов)