/ * método aplicado de p-spline * /
/ * 1er paso: cargar y abrir datos * /
% web_drop_table (WORK.arwa);
FILENAME REFFILE 'D: /Rdata/arwanew.xlsx';
PROC IMPORT DATAFILE = REFFILE dbms = xlsx
out = work.arwa; getnames = yes;
correr;
DATOS DE CONTENIDO DEL PROCESO = WORK.arwa;
correr;
% web_open_table (WORK.arwa);
/ * primer método de spline penalizado * /
proc transreg data = WORK.arwa;
identidad del modelo (yi) = pbspline (xi); / * Criterio AICC * /
correr;
datos de proceso loess = WORK.arwa;
modelo yi = xi;
correr;
/ * segundo método de spline penalizado * /
datos de proceso tpspline = WORK.arwa;
modelo yi = (xi);
correr;
/ * resultados de la trama * /
proc sgplot data = WORK.arwa;
pbspline x = xi y = yi;
loess x = xi y = yi / nomarkers; / * usa la opción PRESEARCH * /
correr;
