Displaying 1 result from an estimated 1 matches for "tp2713818p2713856".
Did you mean:
tp2713818p2713818
2010 Sep 25
3
3D plot
hey, how can i plot this function??? thanks for ur help
n=1000
m=2
k=n/m
N=100
myfun <- function(n, m, alpha = .05, seeder = 1000) {
l=matrix(0,nrow=m,ncol=N)
for(i in 1:N){
set.seed(i)
for(j in 1:m){
x=rnorm(n,0,0.5)
y=rnorm(n,0,0.8)
l[j,i]=cor((x[(((j-1)*k)+1):(((j-1)*k)+k)]),
(y[(((j-1)*k)+1):(((j-1)*k)+k)]))
}
}
for(i in 1:N){
for (j in 1:m){
gute <- function() {
q_1 <-