- matrices = list( matrix(runif(d*K, min=-1, max=1),ncol=K) ) #reference
- for (i in 2:N)
- {
- matrices[[i]] <- matrices[[1]][,sample(1:K)]
- if (noise)
- matrices[[i]] = matrices[[i]] + matrix(rnorm(d*K, sd=0.05), ncol=K)
- }
- matrices
+ matrices = list( matrix(runif(d*K, min=-1, max=1),ncol=K) ) #reference
+ for (i in 2:N)
+ {
+ matrices[[i]] <- matrices[[1]][,sample(1:K)]
+ if (noise)
+ matrices[[i]] = matrices[[i]] + matrix(rnorm(d*K, sd=0.05), ncol=K)
+ }
+ matrices