打开命令行窗口，运行C:\soft\R\bin\Rscript.exe D:\test\total.txt
sink(file = "D://test//totalResult.txt",append = FALSE,type = c("output","message"),split = FALSE)
x1 x2 x3 y
tech1 tech13 pos2 0.5
tech2 tech12 pos1 0.6
tech3 tech11 pos3 0.7
tech2 tech12 pos1 0.4
tech3 tech11 pos3 0.6
my_data<-read.csv(t.txt)
model <- lm(y~ x1+x2+ x3, data=my_data)
model
---
t检验
x <- c(tech1, tech2, tech3, tech2, tech3)
x2 <- c(tech13, tech12, tech11, tech12, tech11)
x3 <- c(pos2, pos1, pos3, pos1, pos3)
y <- c(0.5, 0.6, 0.7, 0.4, 0.6)
t.test(y,x,var.equal = TRUE,alternative = "less")
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
