Добавил:
Koboku1
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
#10.1
fill_na <- function(x){
y_full <- lm(x[ ,3] ~ x[ ,1] + x[ ,2], data = x, na.action = 'na.exclude')
y_full <- predict(y_full, x)
x_full<-x[,3]
x_full[is.na(x_full)]<-y_full[is.na(x_full)]
x$y_full <- x_full
return(x)
}
test_data <- read.csv(“fill_na_test.csv")
fill_na(test_data)
#10.2
model_full <- lm(rating ~ ., data = attitude)
model_null <- lm(rating ~ 1, data = attitude)
ideal_model <-step(model_null,scope=list(lower = model_null, upper = model_full),direction='both')
#10.3
model <- lm(sr~(.)^2,LifeCycleSavings)
model
fill_na <- function(x){
y_full <- lm(x[ ,3] ~ x[ ,1] + x[ ,2], data = x, na.action = 'na.exclude')
y_full <- predict(y_full, x)
x_full<-x[,3]
x_full[is.na(x_full)]<-y_full[is.na(x_full)]
x$y_full <- x_full
return(x)
}
test_data <- read.csv(“fill_na_test.csv")
fill_na(test_data)
#10.2
model_full <- lm(rating ~ ., data = attitude)
model_null <- lm(rating ~ 1, data = attitude)
ideal_model <-step(model_null,scope=list(lower = model_null, upper = model_full),direction='both')
#10.3
model <- lm(sr~(.)^2,LifeCycleSavings)
model