Implement periodic transform

Project.toml

@@ -1,6 +1,6 @@
 name = "KernelFunctions"
 uuid = "ec8451be-7e33-11e9-00cf-bbf324bd1392"
-version = "0.8.0"
+version = "0.8.1"
 
 [deps]
 Compat = "34da2185-b29b-5c13-b0c7-acf172513d20"

src/KernelFunctions.jl

@@ -38,7 +38,7 @@ export TransformedKernel, ScaledKernel
 export TensorProduct
 
 export Transform, SelectTransform, ChainTransform, ScaleTransform, LinearTransform,
-    ARDTransform, IdentityTransform, FunctionTransform
+    ARDTransform, IdentityTransform, FunctionTransform, PeriodicTransform
 
 export NystromFact, nystrom
 
@@ -57,10 +57,6 @@ using StatsFuns: logtwo
 using InteractiveUtils: subtypes
 using StatsBase
 
-"""
-Abstract type defining a slice-wise transformation on an input matrix
-"""
-abstract type Transform end
 
 abstract type Kernel end
 abstract type SimpleKernel <: Kernel end
@@ -70,7 +66,15 @@ include(joinpath("distances", "pairwise.jl"))
 include(joinpath("distances", "dotproduct.jl"))
 include(joinpath("distances", "delta.jl"))
 include(joinpath("distances", "sinus.jl"))
+
 include(joinpath("transform", "transform.jl"))
+include(joinpath("transform", "scaletransform.jl"))
+include(joinpath("transform", "ardtransform.jl"))
+include(joinpath("transform", "lineartransform.jl"))
+include(joinpath("transform", "functiontransform.jl"))
+include(joinpath("transform", "selecttransform.jl"))
+include(joinpath("transform", "chaintransform.jl"))
+include(joinpath("transform", "periodic_transform.jl"))
 
 include(joinpath("basekernels", "constant.jl"))
 include(joinpath("basekernels", "cosine.jl"))

src/transform/periodic_transform.jl

@@ -0,0 +1,29 @@
+"""
+    PeriodicTransform(f)
+
+Makes a kernel periodic by mapping a scalar input onto the unit circle. Samples from a GP
+with a kernel with this transformation applied will produce samples with frequency `f`.
+"""
+struct PeriodicTransform{Tf<:AbstractVector{<:Real}} <: Transform
+    f::Tf
+end
+
+@functor PeriodicTransform
+
+PeriodicTransform(f::Real) = PeriodicTransform([f])
+
+dim(t::PeriodicTransform) = 2
+
+(t::PeriodicTransform)(x::Real) = [sinpi(2 * first(t.f) * x), cospi(2 * first(t.f) * x)]
+
+function _map(t::PeriodicTransform, x::AbstractVector{<:Real})
+    return RowVecs(hcat(sinpi.((2 * first(t.f)) .* x), cospi.((2 * first(t.f)) .* x)))
+end
+
+function Base.isequal(t1::PeriodicTransform, t2::PeriodicTransform)
+    return isequal(first(t1.f), first(t2.f))
+end
+
+function Base.show(io::IO, t::PeriodicTransform)
+    print(io, "Periodic Transform with frequency $(first(t.f))")
+end

src/transform/transform.jl

@@ -1,10 +1,7 @@
-include("scaletransform.jl")
-include("ardtransform.jl")
-include("lineartransform.jl")
-include("functiontransform.jl")
-include("selecttransform.jl")
-include("chaintransform.jl")
-
+"""
+Abstract type defining a slice-wise transformation on an input matrix
+"""
+abstract type Transform end
 
 Base.map(t::Transform, x::AbstractVector) = _map(t, x)
 _map(t::Transform, x::AbstractVector) = t.(x)

test/runtests.jl

@@ -72,6 +72,8 @@ include("test_utils.jl")
         print(" ")
         include(joinpath("transform", "chaintransform.jl"))
         print(" ")
+        include(joinpath("transform", "periodic_transform.jl"))
+        print(" ")
     end
     @info "Ran tests on Transform"
 

test/transform/periodic_transform.jl

@@ -0,0 +1,16 @@
+@testset "periodic_transform" begin
+    @testset "compare to periodic exponentiated quadratic" begin
+        rng = MersenneTwister(123456)
+        f = rand(rng) + 2.0
+        x = collect(range(0.0, 3.0 / f; length=1_000))
+
+        # Construct in the usual way.
+        k_eq_periodic = transform(PeriodicKernel(; r=[sqrt(0.25)]), f)
+
+        # Construct using the peridic transform.
+        k_eq_transform = transform(SqExponentialKernel(), PeriodicTransform(f))
+
+        @test kernelmatrix(k_eq_periodic, x) ≈ kernelmatrix(k_eq_transform, x)
+        # TODO - add interface_tests once #159 is merged.
+    end
+end