Displaying 2 results from an estimated 2 matches for "mypos".
Did you mean:
typos
2011 Feb 25
1
speed up process
...posed
to use it don't know much about R. So I wrote it so that they don't have
to modify the critical parts to run the script for their needs.
#column indexes for function
ind.xvar <- 2
seq.yvar <- 3:4
#position vector for legend(), stupid positioning but it doesn't matter here
mypos <- c("topleft", "topright","bottomleft")
#run the function for columns 3&4 as y (seq.yvar) with column 2 as x
(ind.xvar) for all 3 datasets (mydata_list)
par(mfrow=c(2,1))
for (i in seq_along(seq.yvar)){
k <- seq.yvar[i]
plot(mydata1[[k]]~mydata1[[ind...
2011 Feb 28
0
Fwd: Re: speed up process
..., 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("topleft", "topright","bottomleft")
par(mfrow=c(2,1))
Rprof()
for (i in seq_along(seq.yvar)){
k<- seq.yvar[i]
plot(mydata1[[k]]~mydata1[[ind.xvar]], type="p",
xlab=names(mydata1)[ind.xvar], ylab=names(mydata1)[k])
for (j in seq_along(myda...