Добавил:
Koboku1
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
#9.1
cl1<-c(2,4,7,8,0,-3)
cl2<-c(1,4,6,9,6,-2)
x<-data.frame(cl1, cl2)
x
corr.calc<-function (test_data){
fit <- cor.test(test_data[[1]], test_data[[2]])
r<-fit$estimate
p<-fit$p.value
return(c(r,p))}
corr.calc(x)
#9.2
df <- read.table ("dataset_1.txt")
df
my_reg_coef <- lm(V1~V2,df)$coefficients
my_reg_coef
#9.3
library(ggplot2)
my_plot<-ggplot(iris,aes(Sepal.Width,Petal.Width,col=Species))+
geom_point(size = 3)+
geom_smooth(method = "lm")
my_plot
cl1<-c(2,4,7,8,0,-3)
cl2<-c(1,4,6,9,6,-2)
x<-data.frame(cl1, cl2)
x
corr.calc<-function (test_data){
fit <- cor.test(test_data[[1]], test_data[[2]])
r<-fit$estimate
p<-fit$p.value
return(c(r,p))}
corr.calc(x)
#9.2
df <- read.table ("dataset_1.txt")
df
my_reg_coef <- lm(V1~V2,df)$coefficients
my_reg_coef
#9.3
library(ggplot2)
my_plot<-ggplot(iris,aes(Sepal.Width,Petal.Width,col=Species))+
geom_point(size = 3)+
geom_smooth(method = "lm")
my_plot