Skip to main content
  • Home
  • Development
  • Documentation
  • Donate
  • Operational login
  • Browse the archive

swh logo
SoftwareHeritage
Software
Heritage
Archive
Features
  • Search

  • Downloads

  • Save code now

  • Add forge now

  • Help

https://github.com/cran/HLSM
10 June 2025, 07:48:45 UTC
  • Code
  • Branches (13)
  • Releases (0)
  • Visits
    • Branches
    • Releases
    • HEAD
    • refs/heads/master
    • refs/tags/0.1
    • refs/tags/0.2
    • refs/tags/0.4
    • refs/tags/0.5
    • refs/tags/0.6
    • refs/tags/0.7
    • refs/tags/0.8
    • refs/tags/0.8.1
    • refs/tags/0.8.2
    • refs/tags/0.9.0
    • refs/tags/0.9.1
    • refs/tags/0.9.2
    No releases to show
  • 3ceb65a
  • /
  • R
  • /
  • covFunction.R
Raw File Download
Take a new snapshot of a software origin

If the archived software origin currently browsed is not synchronized with its upstream version (for instance when new commits have been issued), you can explicitly request Software Heritage to take a new snapshot of it.

Use the form below to proceed. Once a request has been submitted and accepted, it will be processed as soon as possible. You can then check its processing state by visiting this dedicated page.
swh spinner

Processing "take a new snapshot" request ...

Permalinks

To reference or cite the objects present in the Software Heritage archive, permalinks based on SoftWare Hash IDentifiers (SWHIDs) must be used.
Select below a type of object currently browsed in order to display its associated SWHID and permalink.

  • content
  • directory
  • revision
  • snapshot
origin badgecontent badge Iframe embedding
swh:1:cnt:68b357f57101a3e0416553e8c503ebeef19b1b08
origin badgedirectory badge Iframe embedding
swh:1:dir:c88aea9a9f7f7dc6caf24c6d6689b3296a490e44
origin badgerevision badge
swh:1:rev:281f55f9f8ae3be814d154729507a7fb494e8a92
origin badgesnapshot badge
swh:1:snp:c1f7f33a4bb251aa809bee01ad0b90bc8a96b471
Citations

This interface enables to generate software citations, provided that the root directory of browsed objects contains a citation.cff or codemeta.json file.
Select below a type of object currently browsed in order to generate citations for them.

  • content
  • directory
  • revision
  • snapshot
Generate software citation in BibTex format (requires biblatex-software package)
Generating citation ...
Generate software citation in BibTex format (requires biblatex-software package)
Generating citation ...
Generate software citation in BibTex format (requires biblatex-software package)
Generating citation ...
Generate software citation in BibTex format (requires biblatex-software package)
Generating citation ...
Tip revision: 281f55f9f8ae3be814d154729507a7fb494e8a92 authored by Tracy Sweet on 06 December 2021, 12:00:02 UTC
version 0.9.0
Tip revision: 281f55f
covFunction.R

##input: X is a dataframe with

##	1st column as a vector of network id and is named 'id'

##	2nd column has names of the node



getReceiverCov = function(X,nnodes,nodenames){

	if(all(dimnames(X)[[2]] != 'id')){stop('network id is not provided. Use name id to name the first column of X')}

	if(all(dimnames(X)[[2]] != 'Node')){stop('Nodes are not provided. Use nameNode for the second column')}



	netlist = unique(X$id)

	XX = list()

	PP = dim(X)[2] - 2

	for(ii in 1:length(netlist)){

		XX[[ii]] = array(0, dim = c(nnodes[ii],nnodes[ii],PP))

		Xsm = X[which(X$id == netlist[ii]),]

		KK = unique(Xsm$Node)

		if(length(KK) != nnodes[ii])(warning('Missing data replaced by 0'))

		dimnames(XX[[ii]])[[1]] = dimnames(XX[[ii]])[[2]] = nodenames[[ii]]

		x1 = which(dimnames(Xsm)[[2]] == 'id')

		x2 = which(dimnames(Xsm)[[2]] == 'Node')

		for(kk in 1:length(KK)){

                    k1 = which(nodenames[[ii]] == KK[kk])

                    if(length(k1)==0){ stop('Network nodenames do not match sender cov nodenames')}
                    
			XX[[ii]][,k1,] = sapply(1:PP,function(x)rep(as.numeric(Xsm[which(Xsm$Node==KK[kk]),-c(x1,x2)][x]),nnodes[ii]))

	}

	}

	return(XX)

}





getSenderCov = 	function(X,nnodes,nodenames){

	if(all(dimnames(X)[[2]] != 'id')){stop('network id is not provided. Use name id to name the first column of X')}

	if(all(dimnames(X)[[2]] != 'Node')){stop('Nodes are not provided. Use nameNode for the second column')}



	netlist = unique(X$id)

	XX = list()

	PP = dim(X)[2] - 2

	for(ii in 1:length(netlist)){

		XX[[ii]] = array(0, dim = c(nnodes[ii],nnodes[ii],PP))

		Xsm = X[which(X$id == netlist[ii]),]

		KK = unique(Xsm$Node)

		if(length(KK) != nnodes[ii])(warning('Missing data replaced by 0'))

		dimnames(XX[[ii]])[[1]] = dimnames(XX[[ii]])[[2]] = nodenames[[ii]]

		x1 = which(dimnames(Xsm)[[2]] == 'id')

		x2 = which(dimnames(Xsm)[[2]] == 'Node')

		for(kk in 1:length(KK)){

			k1 = which(nodenames[[ii]] == KK[kk])

                    if(length(k1)==0){ stop('Network nodenames do not match sender cov nodenames')}
			Xind = which(Xsm$Node==KK[kk])

			for(ll in 1:PP){

			    XX[[ii]][k1,,ll] = rep(as.numeric(Xsm[Xind,

						-c(x1,x2)][ll]),nnodes[ii]) }

	}

	}

	return(XX)

}



getEdgeCov = function(X,nnodes,nodenames){

	if(all(dimnames(X)[[2]] != 'id')){stop('network id is not provided. Use name id to name the first column of X')}
	if(all(dimnames(X)[[2]] != 'Sender')){stop('Sender nodes are not provided. Use name Sender for the second column')}
	if(all(dimnames(X)[[2]] != 'Receiver')){stop('Receiver nodes are not provided. Use name Receiver for the third column')}

    netlist = unique(X$id)
	XX = list()
	PP = dim(X)[2] - 3

	for(ii in 1:length(netlist)){

		XX[[ii]] = array(0, dim = c(nnodes[ii],nnodes[ii],PP))
		Xsm = X[which(X$id == netlist[ii]),] ## removes rows of df for network ii
		KK = unique(c(Xsm$Receiver,Xsm$Sender))
		if(length(KK) != nnodes[ii])(warning('Missing data replaced by 0'))
		dimnames(XX[[ii]])[[1]] = dimnames(XX[[ii]])[[2]] = nodenames[[ii]]

            KK1 = Xsm$Sender
		KK2 = Xsm$Receiver

		x1 = which(dimnames(Xsm)[[2]] == 'id')
		x2 = which(dimnames(Xsm)[[2]] == 'Sender')
		x3 = which(dimnames(Xsm)[[2]] == 'Receiver')

  
		for(kk in 1:nrow(Xsm)){		

			k1 = which(nodenames[[ii]] == KK1[kk])
			k2 = which(nodenames[[ii]] == KK2[kk])

			XX[[ii]][k1,k2,] = as.numeric(Xsm[kk,-c(x1,x2,x3)])
                    if(length(k1)==0 | length(k2)==0){ stop('Network nodenames do not match edgecov nodenames')}
                }
               
	}

	return(XX)

}








back to top

Software Heritage — Copyright (C) 2015–2025, The Software Heritage developers. License: GNU AGPLv3+.
The source code of Software Heritage itself is available on our development forge.
The source code files archived by Software Heritage are available under their own copyright and licenses.
Terms of use: Archive access, API— Contact— JavaScript license information— Web API