preタグが使えないので見にくいですが、、、 g.dat <- as.factor(rep(c(1, 2), c(5, 6))) # グループを表す変数 x.dat <- c(1.3, 1.5, 1.5, 1.8, 2.0, 1.5, 1.5, 1.8, 1.8, 2.0, 2.2) # 説明変数 y.dat <- c(17.3, 15.6, 14.1, 13.8, 10.2, 17.8, 15.8, 16.0, 13.6, 11.2, 10.2) # 目的変数 mydata <- data.frame(Y = y.dat, X = x.dat, group = g.dat) # データフレームの作成 # 関数two.slopeを定義する two.slope <- function(dat){ attach(dat) # 引数に指定されたデータフレームにパスを通す # データフレームより各
![統計ソフトRを用いた回帰直線の傾きの検定法](https://cdn-ak-scissors.b.st-hatena.com/image/square/e88320b85b990a731dadd9f1e8d41da14b361d6d/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2063_4.jpg)