Добавил:
Koboku1
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:R Language (Сковорцов) / 3
.txt # 3.1
mydata <- read.csv('evals.csv')
for (i in 1:nrow(mydata)){
if (mydata$age[i] > 40 || mydata$score[i] < 3){
mydata$new_var[i] <- 1
} else mydata$new_var[i] <- 0
}
View(mydata[,c(1,6,22)])
# 3.2
mydata <- read.csv('AirPassengers.csv')
for (i in 1:nrow(mydata)){
if (mydata$AirPassengers[i] < mydata$AirPassengers[i + 1]){
mydata$good_months[i] <- mydata$AirPassengers[i]
}
mydata <- read.csv('evals.csv')
for (i in 1:nrow(mydata)){
if (mydata$age[i] > 40 || mydata$score[i] < 3){
mydata$new_var[i] <- 1
} else mydata$new_var[i] <- 0
}
View(mydata[,c(1,6,22)])
# 3.2
mydata <- read.csv('AirPassengers.csv')
for (i in 1:nrow(mydata)){
if (mydata$AirPassengers[i] < mydata$AirPassengers[i + 1]){
mydata$good_months[i] <- mydata$AirPassengers[i]
}
Соседние файлы в папке R Language (Сковорцов)