Skip to main content

I know this is a kind of stupid question but I can not find a specific answer in here and google so I really need your help. I want to convert a degree of freedom of t-distribution to follow a standard deviation of normal distribution to plot a density line.

I know this is a kind of stupid question but I can not find a specific answer in here and google so I really need your help. I want to convert a degree of freedom of t-distribution to follow a standard deviation of normal distribution to plot a density line.

I want to convert a degree of freedom of t-distribution to follow a standard deviation of normal distribution to plot a density line.

added 292 characters in body
Source Link

EDIT : I found the solution

plot(x.axis, dnorm(x.axis, mean =0, sd = se.h0), type ="l", col = "red")
lines(x.axis, dt.scaled(x.axis, df=12, mean =0, sd = se.h0), type ="l", col = "blue")
abline(h=0)
abline( v= t*se.h0, col = "red", lty =2)
abline( v= 0, lty =2)

EDIT : I found the solution

plot(x.axis, dnorm(x.axis, mean =0, sd = se.h0), type ="l", col = "red")
lines(x.axis, dt.scaled(x.axis, df=12, mean =0, sd = se.h0), type ="l", col = "blue")
abline(h=0)
abline( v= t*se.h0, col = "red", lty =2)
abline( v= 0, lty =2)
added 2 characters in body
Source Link
x.axis = seq(0 - se*t*2se.h0*3, 0 + se*t*2se.h0*3, length =100)

plot(x.axis, dnorm(x.axis, mean =0, sd = se.h0), type ="l", col = "red", ylim=c(0,0.27))
lines(x.axis, dt(x.axis-0, df = se.h0/12), type = "l")
abline(h=0)
abline(v= t*se.h0, col = "red", lty =2)
abline(v= 0, lty =2)
x.axis = seq(0 - se*t*2, 0 + se*t*2, length =100)

plot(x.axis, dnorm(x.axis, mean =0, sd = se.h0), type ="l", col = "red", ylim=c(0,0.27))
lines(x.axis, dt(x.axis-0, df = se.h0/12), type = "l")
abline(h=0)
abline(v= t*se.h0, col = "red", lty =2)
abline(v= 0, lty =2)
x.axis = seq(0 - se.h0*3, 0 + se.h0*3, length =100)

plot(x.axis, dnorm(x.axis, mean =0, sd = se.h0), type ="l", col = "red", ylim=c(0,0.27))
lines(x.axis, dt(x.axis-0, df = se.h0/12), type = "l")
abline(h=0)
abline(v= t*se.h0, col = "red", lty =2)
abline(v= 0, lty =2)
Source Link
Loading