Skip to content

Pearson correlation among elements of an array #191

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 8 commits into from
Jun 8, 2020
Merged

Pearson correlation among elements of an array #191

Changes from 1 commit
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
e60bdea
From corr_dev
jvdp1 May 17, 2020
c50faef
corr: formatting
jvdp1 May 17, 2020
79facfd
corr: correction for dot_product complex
jvdp1 May 17, 2020
19b3b95
Merge remote-tracking branch 'upstream/master' into corr
jvdp1 May 28, 2020
918911b
corr:rebase and addition of links
jvdp1 May 28, 2020
4208433
corr: add kind to cmplx
jvdp1 Jun 5, 2020
d493c76
Update doc/specs/stdlib_experimental_stats.md
jvdp1 Jun 5, 2020
c833cbc
Update doc/specs/stdlib_experimental_stats.md
jvdp1 Jun 5, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
corr: formatting
  • Loading branch information
@jvdp1
jvdp1 committed May 17, 2020
commit c50faefa47aa55e8142086a81d40b47fa22ed3b4
173 changes: 84 additions & 89 deletions src/stdlib_experimental_stats.fypp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,96 +10,91 @@ module stdlib_experimental_stats
! Public API
public :: corr, cov, mean, moment, var


interface corr
#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr",1, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
real(${k1}$) :: res
end function ${RName}$
#:endfor


#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr",1, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
real(dp) :: res
end function ${RName}$
#:endfor


#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr_mask",1, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in) :: mask(:)
real(${k1}$) :: res
end function ${RName}$
#:endfor


#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr_mask",1, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in) :: mask(:)
real(dp) :: res
end function ${RName}$
#:endfor


#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr",2, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
${t1}$ :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor


#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr",2, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
real(dp) :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor


#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr_mask",2, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in) :: mask(:,:)
${t1}$ :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor

#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr_mask",2, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in) :: mask(:,:)
real(dp) :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor
#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr",1, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
real(${k1}$) :: res
end function ${RName}$
#:endfor

#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr",1, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
real(dp) :: res
end function ${RName}$
#:endfor

#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr_mask",1, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in) :: mask(:)
real(${k1}$) :: res
end function ${RName}$
#:endfor

#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr_mask",1, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:)
integer, intent(in) :: dim
logical, intent(in) :: mask(:)
real(dp) :: res
end function ${RName}$
#:endfor

#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr",2, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
${t1}$ :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor

#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr",2, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in), optional :: mask
real(dp) :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor

#:for k1, t1 in RC_KINDS_TYPES
#:set RName = rname("corr_mask",2, t1, k1)
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in) :: mask(:,:)
${t1}$ :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor

#:for k1, t1 in INT_KINDS_TYPES
#:set RName = rname("corr_mask",2, t1, k1, 'dp')
module function ${RName}$(x, dim, mask) result(res)
${t1}$, intent(in) :: x(:, :)
integer, intent(in) :: dim
logical, intent(in) :: mask(:,:)
real(dp) :: res(merge(size(x, 1), size(x, 2), mask = 1<dim)&
, merge(size(x, 1), size(x, 2), mask = 1<dim))
end function ${RName}$
#:endfor

end interface corr

Expand Down