Herkes bir var mı Theil-Sen regresyon T-SQL yazılı işlevi?
Ben Perl ile yazılmış bir tane buldum ama SQL içine recode mümkün değilim.
Herkes bir var mı Theil-Sen regresyon T-SQL yazılı işlevi?
Ben Perl ile yazılmış bir tane buldum ama SQL içine recode mümkün değilim.
Yanıtlar:
Söylediğimde yalan söylüyordum, SQL'e yeniden kodlayamıyorum. Çok tembeltim. İşte kullanım örneği ile kod.
Kod, QuickMedian kullanan bir TheiSen perl kütüphanesine dayanmaktadır . Verilerimizi prosedüre kolayca aktarmak için yeni bir tablo türü tanımlayalım.
CREATE TYPE dbo.TheilSenInputDataTableType AS TABLE
(
ID INT IDENTITY(1,1),
x REAL,
y REAL
)
Çözümümüz, TheilSen.pm'de bulunan iç halkanın doğru yorumlanmasını sağlamak için CROSS APPLY deyimini kullandığından, burada önemli olan kimlik sütununa dikkat edin.
my ($x1,$x2,$y1,$y2);
foreach my $i(0 .. $n-2){
$y1 = $y->[$i];
$x1 = $x->[$i];
foreach my $j($i+1 .. $n-1){
$y2 = $y->[$j];
$x2 = $x->[$j];
Ayrıca, bir dizi gerçek tür değer depolamak için yeni bir veri türüne ihtiyacımız olacak.
CREATE TYPE [dbo].[RealArray] AS TABLE(
[val] [real] NULL
)
İşte f_QuickMedian işlevi, verilen dizi için medyan döndürür. Bunun için kredi Itzik Ben-Gan'a gidiyor .
CREATE FUNCTION [dbo].[f_QuickMedian](@RealArray RealArray READONLY)
RETURNS REAL
AS
BEGIN
DECLARE @Median REAL;
DECLARE @QMedian REAL;
SELECT @Median = AVG(1.0 * val)
FROM
(
SELECT o.val, rn = ROW_NUMBER() OVER (ORDER BY o.val), c.c
FROM @RealArray AS o
CROSS JOIN (SELECT c = COUNT(*) FROM @RealArray) AS c
) AS x
WHERE rn IN ((c + 1)/2, (c + 2)/2);
SELECT TOP 1 @QMedian = val FROM @RealArray
ORDER BY ABS(val - @Median) ASC, val DESC
RETURN @QMedian
END
Ve p_TheilSen Tahmincisi:
CREATE PROCEDURE [dbo].[p_TheilSen](
@TheilSenInput TheilSenInputDataTableType READONLY
, @m Real OUTPUT
, @c Real OUTPUT
)
AS
BEGIN
DECLARE
@m_arr RealArray
, @c_arr RealArray;
INSERT INTO @m_arr
SELECT m
FROM
(
SELECT
t1.x as x1
, t1.y as y1
, t2o.x as x2
, t2o.y as y2
, t2o.y-t1.y as [y2 - y1]
, t2o.x-t1.x as [x2 - x1]
, CASE WHEN (t2o.x <> t1.x) THEN CAST((t2o.y-t1.y) AS Real)/(t2o.x-t1.x) ELSE NULL END AS [($y2-$y1)/($x2-$x1)]
, CASE WHEN t1.y = t2o.y THEN 0
ELSE
CASE WHEN t1.x = t2o.x THEN NULL
ELSE
-- push @M, ($y2-$y1)/($x2-$x1);
CAST((t2o.y-t1.y) AS Real)/(t2o.x-t1.x)
END
END as m
FROM @TheilSenInput t1
CROSS APPLY
(
SELECT t2.x, t2.y
FROM @TheilSenInput t2
WHERE t2.ID > t1.ID
) t2o
) t
WHERE m IS NOT NULL
SELECT @m = dbo.f_QuickMedian(@m_arr)
INSERT INTO @c_arr
SELECT y - (@m * x)
FROM @TheilSenInput
SELECT @c = dbo.f_QuickMedian(@c_arr)
END
Misal:
DECLARE
@in TheilSenInputDataTableType
, @m Real
, @c Real
INSERT INTO @in(x,y) VALUES (10.79,118.99)
INSERT INTO @in(x,y) VALUES (10.8,120.76)
INSERT INTO @in(x,y) VALUES (10.86,122.71)
INSERT INTO @in(x,y) VALUES (10.93,125.48)
INSERT INTO @in(x,y) VALUES (10.99,127.31)
INSERT INTO @in(x,y) VALUES (10.96,130.06)
INSERT INTO @in(x,y) VALUES (10.98,132.41)
INSERT INTO @in(x,y) VALUES (11.03,135.89)
INSERT INTO @in(x,y) VALUES (11.08,139.02)
INSERT INTO @in(x,y) VALUES (11.1,140.25)
INSERT INTO @in(x,y) VALUES (11.19,145.61)
INSERT INTO @in(x,y) VALUES (11.25,153.45)
INSERT INTO @in(x,y) VALUES (11.4,158.03)
INSERT INTO @in(x,y) VALUES (11.61,162.72)
INSERT INTO @in(x,y) VALUES (11.69,167.67)
INSERT INTO @in(x,y) VALUES (11.91,172.86)
INSERT INTO @in(x,y) VALUES (12.07,177.52)
INSERT INTO @in(x,y) VALUES (12.32,182.09)
EXEC p_TheilSen @in, @m = @m OUTPUT, @c = @c OUTPUT
SELECT @m
SELECT @c
İadeler:
m = 52.7079
c = -448.4853
Sadece karşılaştırma için, perl sürümü aynı veri kümesi için aşağıdaki değerleri döndürür:
m = 52.7078651685394
c = -448.484943820225
Dosya sistemleri için DaysToFill metriğini hesaplamak için TheilSen tahmincisi kullanıyorum. Zevk almak!
Bu, büyük olasılıkla SQLCLR'de, aşağıdaki Soru / Cevapya (burada DBA.SE'de de) benzer bir şey yapmak için iyi bir seçim olacaktır:
En uzun ortak alt dize sorununun bir SQL Server uygulaması var mı?
Daha sonra zamanım olduğunda bunun ne kadar uygun olacağını göreceğim.
Ayrıca, T-SQL, Oracle ve genel olarak sunucular için kontrol ettim (saf SQL'de yazmak için çok karmaşık).
Ancak, ilginizi çekebilir bu (Python için bilimsel / istatistik paketi). Algoritma burada ve Python'da da uygulanır. Python, Perl'in aksine, insanların en azından anlayabilme şansına sahip oldukları bir dildir.
Sorunuz beni ilgilendirdi ve etrafta kazdık. Bu algoritmayı içeren C ve C ++ kütüphaneleri vardır ve birkaç R paketinde de mevcuttur. @Srutzky'nin gönderisi de ilginç görünüyor.
+1 ilginç bir soru BTW için - ve foruma hoş geldiniz :-)