Displaying 2 results from an estimated 2 matches for "tsts_slope".
2011 Feb 25
1
speed up process
...t;,"poabe")),]
mydata_list <- list(mydata1=mydata1, mydata2=mydata2, mydata3=mydata3)
#function for regression
library(WRS)
foo_reg <- function(dat, xvar, yvar, mycol, pos, name.dat){
tsts <- tstsreg(dat[[xvar]], dat[[yvar]])
tsts_inter <- signif(tsts$coef[1], digits=3)
tsts_slope <- signif(tsts$coef[2], digits=3)
abline(tsts$coef, lty=1, col=mycol)
legend(x=pos, legend=c(paste("TSTS ",name.dat,":
Y=",tsts_inter,"+",tsts_slope,"X",sep="")), lty=1, col=mycol)
}
--
Ivan CALANDRA
PhD Student
University of Hamburg
Bioze...
2011 Feb 28
0
Fwd: Re: speed up process
...t;thgel","alsen","poabe")),]
mydata_list<- list(mydata1=mydata1, mydata2=mydata2, mydata3=mydata3)
library(WRS)
foo_reg<- function(dat, xvar, yvar, mycol, pos, name.dat){
tsts<- tstsreg(dat[[xvar]], dat[[yvar]])
tsts_inter<- signif(tsts$coef[1], digits=3)
tsts_slope<- signif(tsts$coef[2], digits=3)
abline(tsts$coef, lty=1, col=mycol)
legend(x=pos, legend=c(paste("TSTS ",name.dat,":
Y=",tsts_inter,"+",tsts_slope,"X",sep="")), lty=1, col=mycol)
}
ind.xvar<- 2
seq.yvar<- 3:4
mypos<- c("tople...