Example of homomorphic encryption and operators in R

HomomorphicEncryption-example.R

## Example adopted and clarified from
## http://www.louisaslett.com/HomomorphicEncryption/

library("HomomorphicEncryption")
p <- pars("FandV")
k <- keygen(p)
 
## Unencrypted data
x <- c(42, 34)
y <- c(7, 5)

## Calculation on unencrypted data
z <- x + y
z

## Encrypted data
cx <- enc(k$pk, x)
cy <- enc(k$pk, y)

## You can safely send the encrypted data (cx, cy)
## to anyone in the world and ask them to perform
## the calculation for you.
cz <- cx + cy

## They will not be able to see the data nor the
## results because it's all encrypted throughout!
cz

## The person sends you back the encrypted results
## and you are the only one who can decrypt it.
z <- dec(k$sk, cz)
z

is only it were possible to install this library