search for: tps

Hi, I am trying to bootstrap the difference between each parameters among two non linear regression (distributed loss model) as following: # data.frame > Raies[1:10,] Tps SolA Solb 1 0 32.97 35.92 2 0 32.01 31.35 3 1 21.73 22.03 4 1 23.73 18.53 5 2 19.68 18.28 6 2 18.56 16.79 7 3 18.79 15.61 8 3 17.60 13.43 9 4 14.83 12.76 10 4 17.33 14.91 etc... # non linear model (work well) RaiesLossA.nls<-nls(SolA~a/(1+b*Tps)^c,start=c(a=32,b=...

...Remus to support high availability and checkpointing is controlled by remus for each 400ms. If I check the Iostat I got the idle CPU will decreasing extremely each checkpointing and when its reach 0% of idle cpu the local backing device will freeze and damage the replication. Device: tps kB_read/s kB_wrtn/s kB_read kB_wrtn drbd1 0.00 0.00 0.00 0 0 avg-cpu: %user %nice %system %iowait %steal %idle 1.52 0.00 6.09 0.00 0.00 92.39 Device: tps kB_read/s kB_wrtn/s kB_read kB_...

...before I get started, let me explain some of configuration details... Xen Version SPECjbb WebBench Linux Distribution Debian 3.1 HT disabled Linux Kernel 2.6.12.2 Host Patch CK3s Here are the initial benchmarks SPECJBB WebBench 1 Thread 1 Client 2 Clients 4 Clients 8 Clients BOPS TPS TPS TPS TPS Host 32403.5 213.45 416.86 814.62 1523.78 1 VM 32057 205.4 380.91 569.24 733.8 2 VM 24909.25 NA 399.29 695.1 896.04 4 VM 17815.75 NA NA 742.78 950.63 8 VM 10216.25 NA NA NA 1002.81 (and some more notes.... BOPS - business operations per second, TPS - transactions per second... SP...

Dear listers, I am trying to fit a model using nlsList() using alternately a SSfol() selfstart function or its developped equivalent formulae. This preliminary trial works well mydata<-groupedData(Conc~Tps|Organ,data=mydata) mymod1<-nls(Conc~SSfol(Dose,Tps,lKe,lKa,lCl),data=mydata) as well as a developped form: mymod2<-nls(Conc~Dose * exp(lKe+lKa-lCl) * (exp(-exp(lKe)*Tps)-exp(-exp(lKa)*Tps)) /(exp(lKa)-exp(lKe)), data=mydata, start= c(lKe=-2.77, lKa=-1.41, lCl=-1.13) ) However...

...md2 <- structure(list(group = structure(c(1L, 1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 4L, 5L, 5L, 6L, 6L, 7L, 7L, 7L, 8L, 8L), .Label = c("X1", "X2", "X3", "X4", "X5", "X6", "X7", "X8"), class = "factor"), tps = structure(c(7L, 12L, 14L, 4L, 8L, 9L, 16L, 6L, 7L, 11L, 6L, 15L, 10L, 13L, 3L, 4L, 5L, 1L, 2L), .Label = c("A", "C", "D", "E", "G", "I", "L", "M", "N", "P", "Q", "R",...

Hi all We are implementing samba-ldap to act as an nt pdc and are seeing performance problems. We have a 1ghz, 3gb Ram, 36gb box that is running samba-2.2.5 and openldap-2.0.23 under redhat 7.3 with kernel 2.4.18-3. Clients are all Win2k SP3. All the ldap requests are to the localhost interface. The box is acting as the PDC for the domain, and also sharing diskspace and printers. When we get

...s, I get the message: Error in svd(tempM) : error 159 in dsvdc using traceback, I get: > traceback() 4: stop(paste("error ", z$info, " in dsvdc")) 3: svd(tempM) 2: Krig(x, Y, cov.function = rad.cov, m = m, decomp = decomp, scale.type = scale.type, outputcall = Tpscall, p = p, ...) 1: Tps(bvolcap, bdsm) > if I change the occurrence of svd in the fields package to La.svd, I get the error message > bout <- Tps( bvolcap, bdsm) Error in "[<-"(*tmp*, (nt + 1):np, (nt + 1):np, value = temp$v) : number of items to replace is not...

...0 used. 26282624 avail Mem **iostat** [root at correo ~]# iostat -y 5 Linux 3.10.0-1062.12.1.el7.x86_64 (correo.binal.ac.pa) 07/03/2020 _x86_64_ (4 CPU) avg-cpu: %user %nice %system %iowait %steal %idle 0.05 0.00 0.05 0.05 0.00 99.85 Device: tps kB_read/s kB_wrtn/s kB_read kB_wrtn sda 0.00 0.00 0.00 0 0 dm-0 0.00 0.00 0.00 0 0 dm-1 0.00 0.00 0.00 0 0 avg-cpu: %user %nice %system %iowa...

Dear all, I'm a beginner in spatial regression, therefore, excuse me in advance for the stupid question. I'm using the function Tps of field library. As I read in help, the assumed model for this regression is additive Y = f(X) + e where f(X) is a d dimensional surface. I have understood that d in not an argument to specify in Tps(x, Y, ...). How can I obtain d ? Thanks a lot. Paola. -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-....

Hi, I am trying to use the Tps procedure to visualize 3 variables in XYZ space, but keep getting the error messages below: Warning messages: 1: In Krig.find.gcvmin(info, lambda.grid, gcv.grid$GCV, Krig.fgcv, : GCV search gives a minimum at the endpoints of the grid search 2: In Krig.find.gcvmin(info, lambda.grid, gcv.grid$GCV...

Hello, I was wondering whether anyone out there knows of the solution to a problem that I'm having with the Fields package. I am getting the error message when I try and run the fields function tps (thin plate splines). Namely, for two different sets of variables, I get: > bout <- Tps( bvolcap, bdsm) Error in svd(tempM) : error 159 in dsvdc > wout <- Tps( wvolcap, wdsm) Error in svd(tempM) : error 546 in dsvdc Any help would be greatly appreciated. Jason ___________...

Dear R community, Please, can you help me with a problem concerning bootstrap. The data table called «RMika», contained times (Tps) and corresponding concentration of a chemical in a soil (SolA). I would like to get, by bootstraping, 10 estimations of the parameters C0 and k from the function: SolA = C0*exp(-k*Tps). # First, I fit the data and all is OK > tabMika<-read.delim("RMika.txt") > library(nls...

Hello there, I am using the Tps function to fit a spline to my data which is measurements of a sedimentary layer on an xy plane to see how the thickness of the layer changes. I was wondering if it was possible to change the Tps code so that no minus values are calculated by the spline as these are obviously unfeasible. Any help...

...]# iostat -y 5 >> Linux 3.10.0-1062.12.1.el7.x86_64 (correo.binal.ac.pa) 07/03/2020 >> _x86_64_ (4 CPU) >> >> avg-cpu: %user %nice %system %iowait %steal %idle >> 0.05 0.00 0.05 0.05 0.00 99.85 >> >> Device: tps kB_read/s kB_wrtn/s kB_read >kB_wrtn >> sda 0.00 0.00 0.00 0 >0 >> dm-0 0.00 0.00 0.00 0 >0 >> dm-1 0.00 0.00 0.00 0 &...

Hi, I have a 4 column file (long/lat/elev/variable) and I tried to fit the values of my variable to the XYZ space using Tps and I keep getting the following message: Warning messages: 1: GCV search gives a minumum at the endpoints of the grid search in: Krig.find.gcvmin(info, lambda.grid, gcv.grid$GCV, Krig.fgcv, 2: GCV search gives a minumum at the endpoints of the grid search in: Krig.find.gcvmin(info, lambda.grid,...

Hello list-mailers, I'm trying to use the 'Tps' function from the 'fields' package and I can getting this error message: > fishplot <- Tps(nodes.catch, res2) Error in if ((il > 1) & (il < nstep.cv)) { : missing value where TRUE/FALSE needed In addition: Warning message: no non-missing arguments to min; retur...

...+#include <errno.h> +#include <fcntl.h> +#include <unistd.h> +#include <sys/times.h> +#include <consoles.h> +#include <minmax.h> + + +#ifdef __COM32__ +#define BUFSZ 2048 +/* What's optimal? Under 4k? + * layout.inc: xfer_buf_seg equ 1000h + */ + +float get_tps(){ return 18.2; } + +#else /* __COM32__ */ + +#define BUFSZ 16384 +/* Need to check what might be a "best" buffer/fetch block size here */ + +float get_tps(){ return (float)sysconf(_SC_CLK_TCK); } +void print_cp_result2(char *fn, int bcnt, clock_t bc, clock_t ec) +{ + float et, dr; + et =...

...problems with non linear regression analysis in R. My data correspond to the degradation kinetic of a pollutant in two different soil A and B, x data are time in day and y data are pollutant concentration in soil. In a first time, I want to fit the data for the soil A by using the Ct = C0*exp(-k*Tpst) with Ct the concentration of pollutant at time t, C0 is the initial concentration (i.e. t=0), Tps is the time in days. The table containing data is called «tabMika» Here, you can find my R program: > tabMika<-read.delim("RMika.txt") > tabMika Tps SolA Solb 1 0 32...

...ig gaps (more than 5 N/A following each other). For the moment, i'm trying to do it by working with the time gap between the 2 numeric values surrounding the N/A as following: imputation <- function(x){ met = NULL temp <- met[1] <- x[1] ind_temp <- 1 tps <- time(x) for (i in 2:(length(x)) ){ if((tps[i]-tps[ind_temp] > 1)&(tps[i]-tps[ind_temp] <= 4)&(is.na(x[i]))){ met[i] <- na.approx(x) } else { temp <- met[i] <- x[i] ind_temp <- i } } return(met) } In this example, I...

...sys/times.h> +#include <consoles.h> +#include <minmax.h> +#include <limits.h> +#include <string.h> + +#ifdef __COM32__ +# define BUFSZ_DEF 2048 +/* What's optimal? Under 4k? + * layout.inc: xfer_buf_seg equ 1000h + */ +# define O_DIRECT 0 + +static inline float get_tps(){ return 18.2; } + +#else /* __COM32__ */ + +# define BUFSZ_DEF 16384 +/* Need to check what might be a "best" buffer/fetch block size here */ + +static inline float get_tps(){ return (float)sysconf(_SC_CLK_TCK); } + +#endif /* __COM32__ */ + +#ifndef SSIZE_MAX +# define SSIZE_MAX PTRD...