error in uniform kernel

Author: simonbyrne

src/univariate.jl

@@ -6,7 +6,7 @@ end
 
 # construct kernel from bandwidth
 kernel_dist(::Type{Normal},w::Real) = Normal(0.0,w)
-kernel_dist(::Type{Uniform},w::Real) = (s = w/std(Uniform(-1.0,1.0)); Uniform(s,s))
+kernel_dist(::Type{Uniform},w::Real) = (s = 1.7320508075688772*w; Uniform(-s,s))
 
 typealias LocationScale Union(Laplace,Logistic,TriangularDist)
 kernel_dist{D}(::Type{D},w::Real) = (s = w/std(D(0.0,1.0)); D(0.0,s))