Create gperiodograma.R