Displaying 3 results from an estimated 3 matches for "para1".
Did you mean:
param
2010 Mar 18
2
aumentar tamaño de memoria a mas de 4Gb
...t the names of the output predicted segments with txt extension
# reading the parameter files
input<-read.table("input.txt", header=TRUE)
output<-read.table("output.txt", header=TRUE)
# no_elements for 1 and 2 should be the same
no_elements1<-as.integer(toString(input$para1[1]))
no_elements2<-as.integer(toString(input$para2[1]))
# increasing the memory limit to 4 MB
memory.limit(size=4000)
for (i in 1:no_elements1) {
input_name<-toString(input$para1[i+1])
predict<-read.table(input_name, header=TRUE)
predValues<-predict(calibrate.rf, predict)
pred...
2007 Oct 01
1
[nls] singular gradient
....0,1.0,1.1,1.1,1.2,1.2,1.2,1.2,1
.
3,1.3,1.3,1.3,1.3,1.3,1.4,1.5,1.5,1.5,1.5,1.5,1.6,1.6,1.6,1.6,1.7,1.7,1.
7,1.7,1.7,1.7,1.8,1.8,1.9,1.9,1.9,1.9,1.9,2.0,2.1,2.1,2.3,2.4,2.4,2.7,2.
8,3.3,3.4,3.6,5.0)
# set the data frame
data1<- data.frame(cbind(N,CSR,ev))
# the initial values of parameters
para1.st <- c(a=75.4,b=165.9,c=-22.4,d=0,e=0.8,f=-0.28,g=0)
para2.st <- c(a=31.3,b=-176.9,c=53.41,d=0,e=75.2,f=-0.18,g=0)
# call nls funciton
try.control <- c(maxiter=100, minFactor=1/4096)
out <- nls(N~CSR/(1/(a+b*ev+c*(ev^2))+CSR/(d+e*exp(f*ev)))-g, data1,
start=para1.st, control=try.cont...
2006 Apr 27
12
Execute controller function from RJS
Hi all,
I wonder if it is somehow possible to execture or redirect to a
controller function from RJS?
Right now I do:
def foo()
render :partial => ''executeagain''
end
_executeagain.rhtml
<script>
new Ajax.Updater(''elmntID'', ''/test/foo/'', {evalScripts:true});
</script>
This will loop I know :)
How can I achieve the same