search for: shape

For a function that takes an argument as a list of lists of parameters, I'd like to be able to convert that to a data.frame and vice versa, but can't quite figure out how. pats <- list(structure(list(shape = 0, shape.col = "black", shape.lty = 1, cell.fill = "white", back.fill = "white", label = 1, label.size = 1, ref.col = "gray80", ref.grid = "yes", scale.max = 100), .Names = c("shape", "shape.col", "shape.lty"...

...|binary test/image/replace-button-movie-5.swf.png |binary test/image/replace-button-movie-6.swf |binary test/image/replace-button-movie-6.swf.png |binary test/image/replace-button-movie-7.swf |binary test/image/replace-button-movie-7.swf.png |binary test/image/replace-button-shape-5.swf |binary test/image/replace-button-shape-5.swf.png |binary test/image/replace-button-shape-6.swf |binary test/image/replace-button-shape-6.swf.png |binary test/image/replace-button-shape-7.swf |binary test/image/replace-button-shape-7.swf.png |binary test/image/replace-...

Why does: (shape/scale) * (1:365/scale)^(shape - 1) return a vector of numbers but calling a function hasard(1:365,shape,scale) defined like: hazard <- function(x,shape,scale) { return (shape/scale) * (x/scale)^(shape - 1) } Only return a single value? It is like x becomes a single value passed as an arg...

...test the estimation of weibull distribution parameters #from sample data. In this implementation, their HB estimation method is #replaced by an iterative neural network approach. library(nnet) data.gen=function(iterations,min.sample.size,max.sample.size,min.shift,max.shift,min.scale,max.scale,min.shape,max.shape){ #set up some collection vectors sample.size=vector(mode="numeric",length=iterations) exp.shift=vector(mode="numeric",length=iterations) exp.scale=vector(mode="numeric",length=iterations) exp.shape=vector(mode="numeric",length=i...

I have a list of vectors, all forced to be the same length: testlist <- list( shape=c(0, 0, 2), cell.fill=c("red","blue","green"), back.fill=rep("white",3), scale.max=rep(100,3) ) > str(testlist) List of 4 $ shape : num [1:3] 0 0 2 $ cell.fill: chr [1:3] "red" "blue" "green" $ back.fill:...

I answer my own question: I had overlooked the fact that the normalization factor is also a function of the parameters I want to optimise, hence I should write dbeta2 <- function(x, shape){ res <- x^(shape-1)*(1-x)^(shape-1)/beta(shape, shape) return(res) } after which the results are consistent. ---------- Forwarded message ---------- From: Lorenzo Isella <lorenzo.isella at yopmail.com> Date: 21 December 2017 at 11:29 Subject: Fitting Beta Distribution To: &q...

...__val=<optimized out>) at /usr/include/c++/4.7/ext/atomicity.h:81 #2 _M_dispose (__a=..., this=0x7f7fffff7f7fffe7) at /usr/include/c++/4.7/bits/basic_string.h:242 #3 ~basic_string (this=0x15f8770, __in_chrg=<optimized out>) at /usr/include/c++/4.7/bits/basic_string.h:536 #4 Shape::~Shape (this=0x15f8760, __in_chrg=<optimized out>) at Shape.cpp:13 #5 0x00007ffff22df50b in ~Background (this=0x15f8760, __in_chrg=<optimized out>) at Background.hpp:15 #6 Background::~Background (this=0x15f8760, __in_chrg=<optimized out>) at Background.hpp:15 Up to...

Hello, The function garchFit in the package fGarch allows for choosing a conditional distribution, one of which is the t-distribution. The function allows specification of the shape parameter of the distribution (equal to the degrees of freedom for the t-distribution), for which the default is set to 4. The function also includes an option "include.shape", which is "a logical flag which determines if the parameter for the shape of the conditional distribution wi...

I''m looking for a way to shape all traffic on a virtual vlan interface, say eth1.100 to a max of 100mbit. The box is a quagga router with eth0 on the inside and vlan interfaces on the eth1 card to our upstream partners. Each partner has his own vlan on eth1. I tried shaping but was only able to shape outbound traffic on the...

...7.19, 88.52, 118.55, 151.9, 2.7, 156.41, 21.79, 272.27, 23.16, 32.07, 6325.23, 92.37, 8340.04, 51.08, 55.59, 94.08, 69.98, 554.13, 104.88, 170.15, 945.1, 143.52) #Fits data to a gamma distribution using glm() gamma1_function(data){ n_length(data) m_summary(glm(data~1, family=Gamma(link=identity))) shape_1/as.numeric(m$disp) scale_as.numeric(m$coeff[1]*m$disp) dev.res_-2*log(dgamma(data,shape=shape,scale=scale)) loglik_sum(dev.res) #actually -2 * log like list(loglik=loglik,par=c(shape,scale)) } #Fits data to a gamma distribution "by hand" using optim() gamma2_function(data){ n_length...

I am trying to extract the shape and scale parameters of a wind speed distribution for different sites. I can do this in a clunky way, but I was hoping to find a way using data.table or plyr. However, when I try I am met with the following: set.seed(144) weib.dist<-rweibull(10000,shape=3,scale=8) weib.test<-data.table(cbi...

Guys, I'm having an error when I use the command: library(MASS)> dados<-read.table("inverno.txt",header=FALSE)> vento50<-fitdistr(dados[[1]],densfun="weibull")Mensagens de aviso perdidas:1: In dweibull(x, shape, scale, log) : NaNs produzidos2: In dweibull(x, shape, scale, log) : NaNs produzidos3: In dweibull(x, shape, scale, log) : NaNs produzidos4: In dweibull(x, shape, scale, log) : NaNs produzidos5: In dweibull(x, shape, scale, log) : NaNs produzidos6: In dweibull(x, shape, scale, log) : NaNs produzido...

Dear All, I need to fit a custom probability density (based on the symmetric beta distribution B(shape, shape), where the two parameters shape1 and shape2 are identical) to my data. The trouble is that I experience some problems also when dealing with the plain vanilla symmetric beta distribution. Please consider the code at the end of the email. In the code, dbeta1 is the density of the beta distri...

...400,340,306,283,278,260,253,242,240,229,201,198,190,186,180,170,168,151,150,148,147,125,117,110,107,104,85,83,80,74,70,66,54,46,45,43,40,38,10) x<-log(penta+1) plot(ecdf(x), ylab="Probability", xlab="Concentration (Ln+1)") x.wei<-fitdistr(x,"weibull") x.wei shape scale 6.7291685 5.3769965 (0.7807718) (0.1254696) xwei.shape <- x.wei$estimate[[1]] xwei.scale <- x.wei$estimate[[2]] x.wei<-fitdistr(x,"weibull") x.wei xwei.shape <- x.wei$estimate[[1]] xwei.scale <- x.wei$estimate[[2]] curve(pweibull(x, shape=xwei.shape, sc...

When the shape of all vertices is set to "square" and the size of the vertices is also set, one get following error (commands attached): Error in l[[which.min(sapply(l, function(p) (p[1] - x0)^2 + (p[2] - y0)^2))]] : attempt to select less than one element Is there a way to solve this problem?...

Hi, Let say I have data by two columns A and B, and I have fit each column using the gamma distribution by 'fitdist' . I just want the result show only the shape and rate only. Eg: library(fitdistrplus) A <-c(1,2,3,4,5) B<-c(6,7,8,9,10) C <-cbind(A,B) apply(C, 2, fitdist, "gamma") Output show like this: $A Fitting of the distribution ' gamma ' by maximum likelihood Parameters: estimate Std. Error shape 3.702253 2.2440...

...); + for (i = 0; i < n_glyphs; i++) { + SwfdecFontEntry *entry = &g_array_index (font->glyphs, SwfdecFontEntry, i); + if (wide_offsets) + next_offset = swfdec_bits_get_u32 (&offsets); + else + next_offset = swfdec_bits_get_u16 (&offsets); + swfdec_font_parse_shape (s, entry, next_offset - offset); + offset = next_offset; + } + for (i = 0; i < n_glyphs; i++) { + SwfdecFontEntry *entry = &g_array_index (font->glyphs, SwfdecFontEntry, i); + if (wide_codes) + entry->value = swfdec_bits_get_u16 (bits); + else + entry->value...

I couldn''t find anyone who had actually made it work via google so I guess I''ll ask here. My setup is a VPN point to point link. The VPN is a modified version of Openvpn where I''m using zlib compression to improve the compression a bit. The goal is to shape traffic coming from a routing server through the vpn to the endpoint of the vpn and in such a way maximize the usefulness of a limited bandwidth connection. You can shape the vpn tunnel just fine, but that has a problem since you shape the traffic _before_ any of it is compressed and thus cannot r...

Well it appears i have no clue what im doing. I thought i had the below script working to shape outbound ftp traffic....however, it is shaping inbound traffic too. I have NO clue why. Please comment if anyone has any ideas why this doesnt work. I want to shape only outbound ftp traffic and not inbound or lan traffic. #!/bin/bash #shaping passive and active outbound ftp traffic on an i...

List Out of interest, I use transparent squid proxies for caching websites, and I shape the clients that browse the net, this all works perfectly so no questions in this regard... CLIENT <--- eth0 ----> SQUID <----- ppp0 -----> NET What I just realised was that all egress traffic on eth0 gets shaped, squid gets data from ppp0 and hence is not shaped. Does this mean that...