Displaying 4 results from an estimated 4 matches for "ndataset".
Did you mean:
dataset
2010 Aug 26
2
Problems when Apply a script to a list
...I have a very complicated function for estimation of a model which I
want to apply to Each one of the above simulated datasets
fun<-function(data){data<-as.matrix(data)
sink(' Example.txt',append=TRUE)
cat("\n***********************\nEstimation
\n********************\nDataset Sim : ",
i )
d<-data%*%t(data)
s<-solve(d)
print(s)
out<-s
out
}
results<-list()
for (i in 1:5){results[[i]]<-fun(data=S[[i]])}
My questions are:
1) for some datasets system is computational singular and this causes
execution of the for to stop.By this way I have...
2004 Apr 19
1
using subscripts in a plot title with 2 lines
...erly. The code I'm using is:
xtxt = expression(paste('Observed -log( ', IC[50], ' )'))
ytxt = expression(paste('Predicted -log( ', IC[50], ' )'))
mtxt = expression(paste('Plot of Observed vs. Predicted -log(',
IC[50], ') Values for the PDGFR\nDataset'))
plot(tset$V2, tset$V3, xlim = c(-2,2), ylim = c(-2,2),
pch = 19, col = "blue",
main=mtxt,
xlab = xtxt,
ylab = ytxt)
Removing the IC[50] term makes it come out OK.
Is there any way to get around this?
Thanks,
-------------------------------------------------...
2010 Sep 04
2
Function try and Results of a program
...*I have a very complicated function for estimation of a model which I
want to apply to Each one of the above simulated datasets
fun<-function(data){data<-as.matrix(data)
sink(' Example.txt',append=TRUE)
cat("\n***********************\nEstimation
\n********************\nDataset Sim : ",
i )
d<-data%*%t(data)
s<-solve(d)
print(s)
out<-list (s,d)
out
}
results<-list()
for(i in 1:5){
tmp <- try(fun(data=S[[i]]))
results[[i]] <- ifelse(is(tmp,"try-error"),NA,tmp)
}
####My problem is that results have only the 1st element...
2010 Aug 31
0
Export Results to a txt file applying a function to a list
...*I have a very complicated function for estimation of a model which I
want to apply to Each one of the above simulated datasets
fun<-function(data){data<-as.matrix(data)
sink(' Example.txt',append=TRUE)
cat("\n***********************\nEstimation
\n********************\nDataset Sim : ",
i )
d<-data%*%t(data)
s<-solve(d)
print(s)
out<-s
out
}
######First using for I take my results (for some element of a list I can't
have results due to invertibility or convergence problem helpful suggestion
of Joris Meys )
results<-list()
ffor(i in 1:5)...