puntos5-6.sc3

// Solución de los puntos 5 y 6
// del laboratorio.
exec('data.sci', -1); // Tomar la data
// Código de Nicole (con algunas modificaciones)
xLog=log10(data(:,2)');
yLog=log10(data(:,1)');
rLog = correl(xLog, yLog);
mprintf("\nEl coeficiete de correlacion transformado es %g", rLog);