Добавил:
Koboku1
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:R Language (Сковорцов) / 8
.txt #Задание 8.1. Напишите функцию, которая выводит номера позиций
пропущенных наблюдений в векторе.
На вход функция получает числовой вектор с пропущенными значениями.
Функция возвращает новый вектор с номерами позиций пропущенных значений.
first_function <- function(x){
for (i in 1: length(x)){
if (is.na(x[i])){
n[i] <- c(i)
}
}
return(n)
}
x <- c(1, 4, NA, 5, NA, 9)
first_function(x)
#Задание 8.2. Напишите функцию filtered.sum, которая на вход получает
вектор с пропущенными, положительными и отрицательными значениями и
возвращает сумму положительных элементов вектора.
second_function <- function(x){
for (i in 1: length(x)){
if (is.numeric(x)){
if (x[i] < 0){
n <- n + x[i]
}
}
}
return(x)
}
x <- c(-1, 4, NA, -5, NA, 9)
second_function(x)
пропущенных наблюдений в векторе.
На вход функция получает числовой вектор с пропущенными значениями.
Функция возвращает новый вектор с номерами позиций пропущенных значений.
first_function <- function(x){
for (i in 1: length(x)){
if (is.na(x[i])){
n[i] <- c(i)
}
}
return(n)
}
x <- c(1, 4, NA, 5, NA, 9)
first_function(x)
#Задание 8.2. Напишите функцию filtered.sum, которая на вход получает
вектор с пропущенными, положительными и отрицательными значениями и
возвращает сумму положительных элементов вектора.
second_function <- function(x){
for (i in 1: length(x)){
if (is.numeric(x)){
if (x[i] < 0){
n <- n + x[i]
}
}
}
return(x)
}
x <- c(-1, 4, NA, -5, NA, 9)
second_function(x)