Displaying 5 results from an estimated 5 matches for "dimz".
Did you mean:
dim
2011 Apr 11
1
Comparing execution times
...ing some experiments to help me understand how faster a multicore lapply will be. I thought it might be interesting for some people to look at the results.
Even though are not accurate, still might be a good indicator how much improvement there can be.
A.Case. The classic: for 1:100
for (i in c(1:dimz)){
print(sprintf('Creating the %d map',i));
Shadowlist[,,i]<- GaussRF(x=x, y=y, model=model, grid=TRUE,param=c(mean,variance,nugget,scale,Whit.alpha))
}
user system elapsed
1825.699 303.100 1063.352
--------------------------------------------------------------------...
2011 Apr 09
1
For->lapply->parallel apply
Dear all,
I would like to ask your help understand the subsequent steps for making my program faster.
The following code:
Gauslist<-array(data=NA,dim=c(dimx,dimy,dimz))
for (i in c(1:dimz)){
print(sprintf('Creating the %d map',i));
Gauslist[,,i]<-f <- GaussRF(x=x, y=y, model=model, grid=TRUE,param=c(mean,variance,nugget,scale,Whit.alpha))
}
creates 100 GaussMaps (each map is of 256*256 dim) and stores them in a matrix called Gauslist.
Th...
2002 Sep 30
0
using step function in functions
...hanks in advance,
Barry Feldman
Barry Feldman (p) 312-616-9213
Ibbotson Associates (f) 312-616-0404
225 North Michigan Ave.
Chicago, IL 60601 U.S.A.
# Vector Auto Regression
VAR <- function(rData0,lagz) {
# build regression datasets
rData<-na.omit(rData0)
dimz<-dim(rData)
depDat<-rData[(lagz+1):dimz[1],]
print((dim(depDat))[1])
for (i in 1:lagz) {
cDat<-rData[(lagz-i+1):(dimz[1]-i),]
for (j in 1:dimz[2]) {
names(cDat)[j]<-paste(names(cDat)[j],"xL", i,
sep="",collapse=NULL)...
2011 Apr 11
1
Mclapply and print statement
...tion to split my code to the many cores my system has. It seems that is working fine. This is the parallel version of lcapply.
The only problem that I seem to have is that the printf cannot print messages.
The ideal to me is to have fro my function an output of the form
Shadowlist<-mclapply(1:dimz, function(i) {
print(sprintf('Creating the %d map',i));
GaussRF(x=x, y=y, model=model, grid=TRUE,param=c(mean,variance,nugget,scale,Whit.alpha))
}
)
'I am the processor %d and I work with the task %d',processorid,i
So far I get not output from my pri...
2011 Jul 22
0
Mclapply prints once
Dear all
I have the following code that works in paraller (and is pretty fast actually)
The only problem I still have is that every core just prints only once.
dimz<-1000
Shadowlist<-mclapply(1:dimz, function(i) {
????????????????????????????? print(sprintf('Creating the %d map',i));
????????????????????????????? createField(x=x, y=y, model=model, grid=TRUE,param=c(mean,variance,nugget,scale))
??????????????????????????? }
??????????? )
In a...