Displaying 2 results from an estimated 2 matches for "yvarnew".
Did you mean:
xvarnew
2009 Apr 21
6
Sampling in R
[This email is either empty or too large to be displayed at this time]
2009 Apr 22
2
Exporting objects plotted with plot3d() - rgl package
...0.4333333,0.5454545,0.4590164,0.3943662,0.5076923,0.5,0.3283582,0.3676471,0.559322)
>
> my.cor<-cor(Xvar, Yvar)
> print(my.cor)
>
> nperm<-49999
> Perm.Cor<-NULL
>
> for (iperm in 1:nperm) {
> XvarNew<-sample(Xvar, size=length(Xvar), replace=FALSE)
> YvarNew<-sample(Yvar, size=length(Yvar), replace=FALSE)
> perm.cor<-cor(XvarNew, YvarNew)
> Perm.Cor<-c(Perm.Cor, perm.cor)
> }
> print(max(Perm.Cor))
> XvarSorted<-sort(Xvar, decreasing=TRUE)
> YvarSorted<-sort(Yvar, decreasing=TRUE)
> max.c...