help for R code

Good morning dear administrators,
Please help me to code this code in R.
I use in this file the redescription function ? which by making a scalar
product gives a . You can also choose instead of the redescription function
? a kernel k(x,x).




                  Sincerely